
MICRO-ORDINATEURS 


A CONQUÊTE 
ES JEUX ! 


Philippe OROS 
tain PERBOST 


ZX 8 


\ 













ZX 81 
à la conquête 
des jeux 



DANS LA MÊME COLLECTION 


SCHOMBERG 

SCHOMBERG 

Hernandez 

Nollet 

Pellier 

Ladevie 

Queinnec 

Pellier 

Astier 


Monteil 

Lepape 

OROSet 

Perbost 

Dax 

Nollet 

Bicking 

Teja 

Monteil 

Plouin 

Saguez 

Pellier 

OROSet 

Perbost 

Gros 

Harwood 

Hartnell 

HARTNELLet 

Jones 

VULDY 

Bouquerod 

Pinson 

W ILLARD 
Ceyrat 
Delannoy 
Aubert 


- Le Basic Universel. 

- Micro-ordinateurs : Comment ça marche ? 

- Pascal par l'exemple. 

- La conduite du ZX 81. 

- La conduite du TRS 80. 

- Votre gestion avec BASIC sur micro-ordinateur. 

- Langage d'un autre type : LISP. 

- Programmez vos jeux d'action rapide sur TRS 80. 

- La conduite du l’APPLE II 

Tome 1 : le Basic de l'APPLE II 

Tome 2 : le système graphique et l'assembleur de l'APPLE II. 

- L'assembleur facile du 6502. 

- L'assembleur facil^ du Z 80. 

- ZX81 à la conquête des jeux. 

- CASSETTE - ZX 81 à la conquête des jeux. 

- CP/M et sa famille. 

- Langage machine, trucs et astuces sur ZX 81. 

- La conduite du PC 121 1 (ou TRS 80 pocket). 

- Apprenez à parler à votre ordinateur. 

- La conduite du VIC 20. 

- La conduite de l'IBM-PC. 

- Télécommande avec votre micro-ordinateur. 

- Tout sur les disques du TRS 80 modèles I et III. 

- La conduite du FX-702 P et FX-801 P. 

- La conduite du PC 1 500 

- Jeux et applications pour ZX SPECTRUM 

- Le grand livre du ZX SPECTRUM 

- La conduite du ZX SPECTRUM 

- Graphisme 3 D sur votre micro-ordinateur 

- Des extensions à construire pour votre ZX 81 

- Le Basic en gestion sur Apple II 

- La conduite du Tl 99 

- Mon Tl 99 

- Les fichiers en Basic ... sur micro-ordinateur 

- Pratiquez l'intelligence artificielle 



ZX 81 
à la conquête 

des jeux 


par 

Philippe OROS et Alain PERBOST 


Collection animée 
par Richard SCHOMBERG 


TROISIÈME ÉDITION 
Nouveau tirage 


a 

EYROLLES 


61, boulevard Saint-Germain - 75005 Paris 
1983 



Si vous désirez être tenu au courant de nos 
publications, il vous suffit d'adresser votre 
carte de visite au : 

Service «Presse», Éditions EYROLLES 
61, Boulevard Saint-Germain, 

75240 PARIS CEDEX 05, 

en précisant les domaines qui vous intéressent. 
Vous recevrez régulièrement un avis de parution 
des nouveautés en vente chez votre libraire 
habituel. 


« La loi du 11 mars 1957 n’autorisant, aux termes des alinéas 2 et 3 de l’article 41, d’une part, que 
les «copies ou reproductions strictement réservés à l’usage privé du copiste et non destinées à une 
utilisation collective» et, d’autre part, que les analyses et les courtes citations dans un but 
d’exemple et d’illustration, «toute représentation ou reproduction intégrale, ou partielle, faite sans 
le consentement de l’auteur ou de ses ayants droit ou ayants cause, est illicite» (alinéa 1 er de 
l’article 40)». 

« Cette représentation ou reproduction, par quelque procédé que ce soit, constituerait une contrefa¬ 
çon sanctionnée par les articles 425 et suivants du Code pénal». 


©Éditions EYROLLES, 1983 



Avant-propos 


Ce livre va vous faire pénétrer dans le monde fascinant des jeux 
sur ordinateurs. 

C'est votre ZX81 qui vous servira de guide, un guide dont les 
étonnantes possibilités apparaissent particulièrement bien dans les 
programmes écrits en 1 K. 

Qui pourrait croire en effet que l'on puisse en environ 
! 12 Koctets de BASIC seulement (à peine quelques lignes), program¬ 
mer des jeux amusants, captivants et pour la plupart, interactifs H. 

L'implantation de ces jeux en 1/2 K a principalement été 
possible grâce aux diverses astuces qui permettent de condenser au 
maximum les programmes BASIC sur votre ZX81. 

Ces techniques, brièvement exposées dans le chapitre 1 sont 
expliquées et décrites plus en détail dans le livre LA CONDUITE DU 
ZX81\ 

Les chapitres 2 à 5 décrivent 31 jeux pour votre ZX81 1K en 
donnant leurs listings et en explicitant leurs structures. 

1. Dans la même collection aux Éditions Eyrolles. 
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Le chapitre 6 est consacré aux jeux nécessitant l'extension 
mémoire 16K. Ces 4 programmes sont, en raison de /'importante 
place mémoire disponible, plus complexes que les jeux précédents, 
le programme le plus sophistiqué étant le programme "CUBE" qui 
est capable de refaire le Rubik's Cube à partir de n'importe quelle 
position ! U. 

Alors tous à vos daviers et amusez vous bien.... 
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Techniques d'optimisation 
des programmes 1 K 
sur le ZX 81 


La lecture de ce chapitre présuppose connue la programmation en 
BASIC, pour les débutants, le livre ”LE BASIC UNIVERSEL” publié 
dans cette même collection fournira toutes les bases nécessaires à une 
bonne compréhension. 

Dans sa version de base la mémoire vive du ZX 81 est de 1024 oc¬ 
tets dont 125 sont utilisés par le système d’exploitation et un minimum 
de 25 autres qui constituent le buffer d’affichage. 

La mémoire réellement disponible pour l’utilisateur est en consé¬ 
quence très restreinte. 

Les programmes de jeu utilisent en général des animations 
graphiques et nécessitent donc un buffer d’affichage assez important. 

Pour réussir à programmer des jeux dignes de ce nom sur le ZX 81 
1 K, il faut donc optimiser au mieux la répartition de la mémoire entre le 
programme et le buffer d’écran. 

D’autre part, pour que les jeux ne perdent pas leur attrait il faut 
essayer de conserver leurs possibilités graphiques. Il faut donc écrire les 
programmes avec le plus petit nombre d’octets possible. 

Deux méthodes s’offrent alors à nous : 

— la ”compression” des programmes en BASIC par l’utilisation 
des trucs et astuces diverses explicités ci-après. 
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— l’utilisation du langage machine (le jeu "ENVAHISSEURS” 
constitue une bonne démonstration des possibilités de la programmation 
du Z 80). 


1.1. TRUCS ET ASTUCES POUR OPTIMISER 
VOS PROGRAMMES 1K 

La liste des trucs qui suit n’est pas exhaustive et l’utilisation des 
astuces présentées ici ne constitue qu’une des façons possibles d’optimi¬ 
ser les programmes. 


1.1.1. Suppression des constantes numériques répétées 

Dans un programme, une constante numérique explicite occupe au 
moins 6 octets une variable initialisée à la valeur de cette constante 
n’occupe elle qu’un octet. 

Dès qu’une constante se trouve répétée plusieurs fois dans le 
programme il devient donc intéressant de la stocker dans une variable 
que l'on substituera à elle dans le programme. 


1.1.2. Initialisation des variables 

Dans le même ordre d’idée, il arrive très fréquemment que l’on 
initialise des variables à des valeurs simples 0, 1, 3,... Ces initialisations 
sont en général écrites sous la forme: 

LET X = 1 ou LET Y = 3 

On peut gagner des octets en ne faisant pas figurer 1 et 3 de façon 
explicite; il suffit pour cela de se rappeler que: INT PI donne la partie 
entière de PI = 3,14159 et donc vaut 3 mais n’occupe que deux octets de 
mémoire (contre 6 pour ”3”). De même on peut utiliser SGN PI à la 
place de 1 et remplacer 0 par NOT PI. 

Remarque : pour remplacer 0 ou 1 on peut aussi utiliser le résultat 


2 



d’expressions logiques toujours vraies ou fausses : 

LET C = A = A mettra C à 1 ou LET C = B<>B mettra C à 0 
mais ces méthodes prennent un octet de plus que les précédentes. 


1.1.3. Calcul des arguments des fonctions PAUSE et GOTO 

a) PAUSE 

Vous remarquerez certainement à la lecture des listings des jeux 
qu’une grande partie d’entre eux utilisent l’instruction PAUSE 4E4. On 
obtient ainsi un délai très long permettant de profiter des commentaires 
ou graphiques présents sur l’écran. On peut d’autre part en pressant une 
touche quelconque (sauf BREAK qui arrête le programme) interrompre 
la pause et exécuter l’instruction suivante (en général CLS puis RUN). 

Dans PAUSE 4E4 l’argument 4E4, occupe six octets, on peut donc 
diminuer sa taille en calculant un grand nombre à l’aide des variables 
dont on dispose avec des expressions du genre: 

PAUSE A**p| ou PAUSE PI**C où l'argument n'occupe que 
trois octets. 


Remarques : 

— il ne faut pas que l’expression calculée soit supérieure à 2 16 — 1 
= 65535 sous peine d’obtenir un blocage avec un code d’erreur B. (voir 
annexe). 

— en général il faut éviter l’emploi de la fonction puissance (**) 
qui est lente, mais dans cette application, le temps de calcul de cette 
fonction est négligeable devant la temporisation générée par la PAUSE. 

b) GOTO 

Il peut être pratique et économique en place mémoire de remplacer 
une série de tests logiques suivis de GOTO par un GOTO <expression 
calculée> qui branche le compteur de programme à différentes lignes 
selon les valeurs de l’expression (ON GOTO de certains BASIC S). 


3 



La ligne 60 du programme ”REFLEXE” illustre bien ce principe. 
Ce qui précède est aussi valable pour GOSUB. 


1.1.4. Suppression de tests logiques 

Un simple exemple suffit à expliquer cette astuce: supposez que 
vous vouliez faire déplacer un objet latéralement sur votre écran à l’aide 
des touches ”5” et ”8”. Si X est la coordonnée horizontale du mobile 
vous écrivez normalement : 

10 IF INKEYS = "5" THEN LET X = X - 1 

20 IF INKEYS = "8" THEN LET X = X + 1 

30 ... 

Sur le ZX81 vous pouvez remplacer ces deux lignes par: 

10 LET X = X + (INKEYS = "8") - (INKEYS = ”5") 

Pratiquement tous les programmes présents dans ce livre utilisent 
ce truc. 



Tous les jeux de ce livre utilisent les touches 5, 6, 7, 8 pour les déplacements. 






1.1.5. Utilisation de la fonction VAL 


Sur le ZX81, la fonction VAL permet d’évaluer réellement une 
expression algébrique (ce qui n’est pas le cas dans les autres langages 
BASIC). En effet si par exemple la variable A vaut 12, l’instruction 
PRINT VAL ”A*2” imprimera 24. Cette astuce est abondamment uti¬ 
lisée dans le programme ”CUBE”. 
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Aventures 



2.1. TEMPÊTE SPATIALE 

Ce qui aurait pu être un voyage spatial comme un autre, tranquille 
et sans histoires, va se révéler être l’un des plus dangereux que vous ayez 
eu à faire. En effet votre astronef vient de pénétrer dans un tourbillon de 
météorites. Saurez-vous éviter une collision fatale et prouver ainsi que 
vous êtes un commandant de bord aussi habile que courageux? 

Si vous arrivez à vous sortir de ce secteur dangereux, il vous restera 
encore à diriger sans dommages votre vaisseau spatial à travers une nuée 
d’astronefs étrangers qui voguent autour de vous. 

Pour diriger votre navire, il suffit de presser la touche ”8” pour 
aller à droite et la touche ”5” pour aller à gauche. 

Le score qui apparaît lors d’une collision vous permettra de mesu¬ 
rer votre capacité à faire de longs voyages spatiaux. 



Structure du programme: 

Les lignes 100 et 110 placent de façon aléatoire les météorites. 

La ligne 150 remplace les météorites par les astronefs étrangers 
lorsque votre score dépasse 100. 

La ligne 230 évalue la position de votre vaisseau par rapport à tout 
ce qui l’entoure. 
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Caractères graphiques : ligne 10 graphies shift A 

ligne 150 graphies shift T shift 4 
ligne 220 graphies shift Y shift T 


TEMPETE SPATIALE 


1 l_ET B=a 
5 LET R = B+B 
10 LET 

20 LET X = R *■ INT PX 

25 LET S=NOT PI 

26 LET I=SGN PI 
30 DIM P<R + I) 


90 LET Ü=X~B 
100 LET H = INT t«ND*27) 

110 PRINT RT 2l,HjR$ 

120 SCROLL 

130 SCROLL 

14-0 LET S=S + I 

150 IF S=ü*ü THEN LET R$ = 

170 FOR K-I TO R 

180 LET P(K)=P(K+I) 

190 NEXT K 

200 LET P<R + I3r=H 


A 


tt 


210 PRINT RT Ü-I,X-B.“ 

220 PRINT RT J + 1.. X.; ” V*“ 

230 IF X > =P(I) —B RND X<=P(I)+I 
THEN GOTO J*U*J 

24-0 LET X=X+(INKEYÿ = “8 , ‘ RND X<ü 
* INT PI) - ( INKEY$ = ''5" RND X>PI) 
260 GOTO 

1000 PRINT RT U + I..X-I: "CRR5H" 
1010 PRINT RT NOT PI,NGT PIC S 
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2.2. COMBAT DE CHARS 


C’est à une gigantesque bataille de chars que votre ZX 81 vous 
permet de participer. Vous allez devoir évoluer sur un terrain parsemé de 
fossés anti-chars tout en essayant de détruire le plus grand nombre 
possible d’adversaires. Une collision avec un char ennemi ou tomber 
dans un fossé anti-chars vous serait fatal ; il s’agit donc d’être rapide et 
précis ! 

11 suffit de presser les touches ”5” et ”8” pour diriger votre char 
vers la gauche et vers la droite. Vous pouvez tirer en appuyant sur la 
touche ”F”. 

Pressez une touche quelconque pour relancer le jeu après une 
collision. 



Structure du programme: 

Les lignes 30 et 35 vous permettent de déplacer votre char et de 

tirer. 

La ligne 65 vérifie s’il y a eu ou non collision avec un char ennemi 
ou chute dans un fossé anti char. 

Les lignes 90 et 100 placent de façon aléatoire les chars ennemis et 
les fossés anti-chars. 

Les lignes 1000 à 1040 traitent votre tir, dessinent la trajectoire du 
missile anti char (ligne 1020) et vérifient si le coup a porté (lignes 1030 
et 1035). 
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Caractères graphiques : ligne 65 graphies X; graphies space 

ligne 70 graphies shift K 

ligne 90 graphies X 

ligne 100 graphies space (3 fois) 

ligne 1030 graphies X 

ligne 1035 graphies space; graphies space 




& 

T 


Q 

COMBAT DE CHRR5 

1 LET U=30 
5 LET R=l© 

7 LET D = I639S 
S LET E=D+5GN PI 
1© LET X=R 

3© i_ET X=X+ (INKEY* = "a“ RND X<0 
)-(INKEY$=“5“ AND X>SGN PI) 

35 IF INKEYS = "F" THEN GOTO R*R 

4.0 SCROLL 

60 PR INT RT NOT PI..X.; 

62 LET C=PEEK tPEEK 0+356*PEEK 
E) 

65 IF C =CODE "H" OR C=CODE 
THEN GOTO R*R*0 
70 PR INT 

80 PR INT RT R.. NOT PI; 

90 PRINT TRB RND*0; " jg" 

100 PRINT TRB RND*0.; "li" 

110 GOTO U 

1000 FOR H=5GN PI TO R 
1010 PRINT RT H., X; 

1019 LET C =PEEK (ÊEEK D+256*PEEK 
E) 

1020 PRINT ”.” 

1030 IF C=CODE ”JB” THEN GOTO 106 
0 

1035 IF C=COOE THEN PRINT RT 

H . X ; 

104-0 NEXT H 
1060 GOTO U 
3000 PROSE 0*0*0 
3100 CLS 
3300 RUN 
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Depuis plusieurs mois l’aviation de chasse essaye en vain de 
détruire un gros cuirassé ennemi dont les canons font des ravages dans 
les installations côtières. Cela ne peut plus durer ; il faut couler à tout 
prix ce cuirassé! 

Toutes les attaques conventionnelles ayant échouées, il est convenu 
en haut lieu que l’on enverra cette fois-ci un seul avion qui, s’il réussit à 
franchir les défenses antiaériennes du cuirassé, devra piquer sur le navire 
ennemi pour le percuter de plein fouet et ainsi le détruire. 
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Un pilote habile, et surtout très courageux, est nécessaire pour 
mener à bien cette mission. Vous êtes désigné volontaire d’office... 

Les commandes de votre avion sont très simples: la touche ”7” 
vous permet de gagner de l’altitude alors que la touche ”6” vous fera 
piquer ”à mort”! 

Pressez une touche quelconque du clavier pour faire une nouvelle 
mission kamikaze après un ”bon passage”, un ”boom” ou un ”coup 
direct”. 

Structure du programme: 

Les lignes 10 à 30 placent de façon aléatoire les obus tirés par le 
cuirassé. 

Les lignes 60 à 130 constituent une boucle au cours de laquelle 
l’avion effectue son passage. 

La ligne 100 vérifie si l’avion est touché par un obus ou s’écrase au 
sol. 


Les lignes 105 et 106 constituent une boucle qui sert à ralentir la 
progression de l’avion. 

Pour rendre le jeu plus difficile, changer la ligne 105 en: 

105 FOR I = NOT PI TO B 

Caractères graphiques: ligne 40: graphies shift F (24 fois); graphies 

shift D ; graphies space ; graphies shift D 
ligne 110: graphies shift M 


OQ O 
O 


O 

OO 


O 

O 


OO 


OO 


O 

O 

O O 


OO 
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MISSION KAMIKAZE 


2 LET B =5 
5 LET R=B+B 

10 FOR X =SGN PI TO R+R 
20 PRINT RT R+SGN PI+RND*8,B+R 
NO*(R+BÏ ; “O" 

30 NEXT X 

4-0 PRINT RT R+R , NQT PI; "HÜH 

50 LET Y=B+R 
60 FOR X=NOT PI TO 25 
70 LET Y=Y + (INKEY$="6" AND Y <R 
+R)-(INKEY*="7" RND Y >R) 

90 PRINT RT Y* . X ; 

100 IF PEEK (PEEK 16393+256*PEE 
K 16399ï =CODE "O" OR Y=R + R RND X 
<25 THEN GOTO 190 

105 FOR I=NOT PI TO R 

106 NEXT I 
110 PRINT "B" 

120 PRINT RT Y,X;“ ** 

130 NEXT X 

14-0 IF Y =R+R THEN GOTO 210 
150 PRINT RT R.NOT PI; "BON PRSS 
AGE" 

160 PRUSE 4-E4 
170 CLS 
180 RUN 

190 PRINT RT R.NOT PI;"BOOM" 

200 GOTO 160 

210 PRINT RT R,NOT PI;"COUP DIR 


ECT" 

220 GOTO 


160 


2.4. ARRIÉRE-GARDE 

C’est la défaite pour votre camp. L’ennemi avance et vos armées 
doivent battre en retraite. Vous êtes chargé de retarder le plus possible la 
progression de l’ennemi afin de permettre à votre division de se replier 
dans de bonnes conditions. 

Il s’agit donc pour vous d’un combat sans espoir car l’ennemi 
arrive sur trois files et se rapproche sans cesse. Votre défense sera consi¬ 
dérée comme anéantie lorsque trois unités ennemies seront parvenues à 
passer sans encombres. 
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Vous voilà seul avec une batterie mobile de missiles pour livrer ce 
dernier combat, un véritable ”baroud d’honneur” au cours duquel vous 
devez infliger les pertes les plus fortes possibles à l’ennemi avant de 
devoir vous rendre ! 

11 suffit de presser les touches ”6” et ”7” pour déplacer votre 
batterie de missiles vers le haut ou vers le bas. Pour tirer, pressez la 
touche ” 1 

Pour recommencer une nouvelle partie lorsque le jeu est fini, 
appuyez sur une touche quelconque du clavier. 



Structure du programme: 

Les lignes 60 à 120 assurent le déplacement des unités ennemies. 

Les lignes 80 à 115 dessinent votre batterie de missiles (ligne 80), 
vous permettent de déplacer cette batterie de quatre en quatre tout en la 
maintenant dans les limites du terrain (lignes 90, 105 et 115). 

La ligne 100 teste si vous êtes dans les bonnes conditions pour tirer. 

La ligne 130 comptabilise le nombre d’ennemis qui ont réussi à 
franchir vos lignes et la ligne 140 arrête le jeu lorsque ce nombre arrive à 
3. 


La ligne 150 place les unités ennemies sur les lignes 4, 8, 12 ou 16 
de l’écran. 
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La ligne 200 fait avancer le point de départ de l’ennemi de deux 
cases lorsque votre score dépasse 10. 

Caractères graphiques : ligne 70 : graphies shift T shift Y 


A 


RRRIERE-GRRDE 

10 LET S=NOT PI 
20 LET N=S 
30 LET X=SGN PI 
4-0 LET V = INT PI+X 
5© LET Z=Y 
55 LET U=Y 

sa for r=x tû aa 

70 PR INT RT Z.. I; ** 

80 PR INT RT Y.,25;"<" 

65 LET U=NOT PI 

90 LET U =(U RND INKEY*=“6‘*) -<U 
RND INKEY*=”7“Ï 

100 IF INKEY$="1" RNO Y=Z THEN 
GOTO 180 

105 IF Y +U<=-U OR YtU>=20 THEN 
LET U=NOT PI 
110 PRINT RT Y..25;" ** 

115 LET Y=Y+U 

120 NEXT I 

130 LET N=N+SGN PI 

14.0 IF N= INT PI THEN GOTO 22© 

150 LET Z = INT (RNDtU) *U*-V 

160 IF Z>=U*V THEN LET Z=V 

170 GOTO 60 

180 PRINT RT Z,I;" 

190 LET S=S+SGN PI 

200 IF S>10 THEN LET X=X+2 

210 GOTO 150 

220 PRINT ,, SCORE="; S 

230 PRUSE 4E4 

240 CL5 

250 RUN 
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2.5. CHASSEUR D'ASTÉROÏDES 



Un convoi intergalactique de grande envergure voyage d’Andro¬ 
mède vers une galaxie lointaine. 

Vous pilotez le vaisseau éclaireur du convoi, dont la mission est de 
détruire les astéroïdes qui pourraient entraver la marche du convoi. 

Les astéroïdes remontent sur l’écran vers votre vaisseau (en haut). 
Vous dirigez celui-ci latéralement à l’aide des touches ”5” et ”8”. 

Vous devez donc détruire, en les heurtant, le plus d’astéroïdes 
possibles. 

Le programme comptabilise les astéroïdes touchés. 


* * m aJ k 

10 ASTEROÏDES 
* 


« 


* 


* 


« 


* * 
* 

* 


* 


* 


** 


* 


* 


* 
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Structure du programme: 

Les lignes 50 à 100 génèrent aléatoirement des astéroïdes et font 
remonter l’écran de deux lignes. (Les astéroïdes sont représentés par 

Les lignes 120 à 160 gèrent les mouvements et les collisions du 
vaisseau. 

Les lignes 180 à 210 affichent le résultat et réinitialisent le jeu. 
Caractères graphiques : ligne 130: graphie shift ”Y”, graphie shift ”T”. 


CHR5SEUR D ASTEROÏDES 

1 LET S=23 
LET B = 15 
20 LET R=S*PI 
30 LET C=NOT PX 

4-0 LET D = 1+PEEK t16396)+PEEK C 
16397)*256 

5® LET E=INT tRND*S) 

7® PR INT RT 18.E + 4.;"*" 

8® PR INT RT S-PI, E; "**' 

9® SCROLL 
100 SCROLL 

110 PRINT RT NOT PI,31;" " 

120 IF PEEK CB+D)=S OR PEEK (B+ 
D +1) =S THEN LET C=C + 1 
130 PRINT RT NOT PI,B;**V 
14-0 LET B=B+tINKEY$="8" RND B<2 
5)-CINKEY$="5" RND B>PI+PI) 

155 LET R=R—1 

160 IF R <NOT PI THEN GOTO 180 
170 GOTO 50 

180 PRINT C: " RSTEROIDES" 

19® PRUSE 4-E4- 
200 CLS 
210 RUN 
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2.6. PLACE-FORTE 




HMMH 


Vous êtes le seigneur du château-fort dessiné dans le coin supérieur 
gauche de l’écran. Un vassal un peu trop ambitieux a réussi à s’appro¬ 
cher jusqu’au pied de votre tour. Pour le chasser, le seul moyen qui vous 
est offert est de laisser tomber de grosses pierres du haut de la tour. 

Vous pouvez choisir la grosseur de ces pierres en pressant une des 
touches numériques de ” 1” à ”9”. C’est la touche ”0” qui déclenche la 
chute de la pierre. 

Selon la grosseur sélectionnée l’ennemi fuira plus ou moins loin : à 
vous de choisir la taille adéquate pour qu’en fuyant, il tombe dans les 
douves du château. Mais pour compliquer votre défense, ces douves sont 
situées à une distance aléatoire des remparts. 

Vous avez dix essais successifs; le programme comptabilisera vos 
réussites... Bonne chance... 

Pour réarmer le jeu, faire RUN et NEWLINE. 

Structure du programme: 

lignes 1 à 6 : initialisations 
ligne 7: comptage des essais (10) 
lignes 20 à 50 : dessin du décor 

lignes 65 à 70 : lecture du clavier et analyse des touches 
lignes 100 à 130: chute de la pierre 
lignes 140 à 180: fuite de l’ennemi 
ligne 181 : comptage des réussites 


18 



Caractères graphiques: ligne 40 : graphies space (autant de fois qu’il 

est nécessaire, voir le listing) 

ligne 70 : graphies space 

ligne 150 : graphies shift L 

ligne 1100: graphies shift 7 (2 fois shift R) 

ligne 1110: graphies shift A (15 fois) 


PLACE-FORTE 

1 LET G=NOT PI 

2 LET R=G 

=5 LET U = 10 

6 LET U=SGN PI+SGN PI 

% FOR Y=INT PI TO PI*PI 

10 LET Y$ = ,, 0” 

20 CL5 

30 LET X$="" _ 

4.0 PP.INT ., ■“ .. .. ' 


THEN LET X$=I 


50 GOSUB U**U 
65 IF INKEY $ < > ' 

NKEY ü 

70 IF X*>="1“ RND X*<=”9“ THEN 
LET Y$=CHR$ (CODE X$+CODE "B" ) 
80 PR INT RT R, SGN PI+SGN PI.; Y $ 
90 IF X*<>"0“ THEN GOTO d*U*PI 
100 PRINT RT R.. SGN PI+SGN PI;Y$ 
120 FOR B=R TO O+SGN PI 
130 PRINT RT B.. INT PI; “ ”.;RT B + 

SGN PI., INT PI.: Y $ 

14© NEXT B 

150 FOR B=U»INT PI TO INT (RND* 
U)+CQDE Y $ -CODE "B" 

160 PRINT RT O+SGN PI,B.;” " ; T RB 
B+SGN PI;"* M 
170 NEXT B 

180 IF B=R THEN PRINT RT L»+5GN 

RT U+U.R;"*" 

181 LET G=G+(B=R) 

1O0 PRUSE U * 

200 NEXT Y 
203 PRINT G 

206 STOP _ 

1100 PRINT RT U . INT PI ; "■"■■J" ; RT 
U+SGN PI..O/U; " §*" 

1110 PRINT RT U+U.O-INT PI, 


1120 L 
PI)*RND) 

1130 PRINT RT 
1140 RETURN 


=U+SGN PI + INT ( (O —SGN 


U+U..R; 
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2.7. CONTACT AU SONAR 

L’amirauté vient d’apprendre qu’un sous-marin ennemi fait route en 
ce moment même dans le secteur où vous patrouillez avec votre des¬ 
troyer. Ordre vous est donc donné de détruire ce sous-marin. 

Pour vous orienter, vous disposez d’un sonar qui vous indique la 
distance qui vous sépare de l’ennemi en affichant des chiffres de ”0” à 
”9” et des lettres de ”A” à ”Z”. ”Z” correspond à l'écart maximum alors 
que le sonar indique”0” lorsque vous êtes à la verticale du sous-marin. 

Chaque déplacement de votre bâtiment prend une heure et 
l’amirauté ne vous accorde que cent heures, temps au-delà duquel vous 
serez considéré comme incapable de mener à bien cette mission. Le sous- 
marin pourra alors, dans ce cas, continuer sa route en toute quiétude et 
la mission sera annulée... 

Pressez les touches ”5”, ”6”, ”7” et ”8” pour déplacer votre 
destroyer. 

Lorsque le jeu s’arrête, appuyer sur une touche quelconque du 
clavier pour le relancer. 
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Structure du programme: 

Les lignes 10 et 20 déterminent la position du sous-marin. 

Les lignes 70 à 80 assurent le fonctionnement du sonar en détermi¬ 
nant à partir de la distance qui vous sépare du sous-marin (ligne 70) le 
caractère à afficher (ligne 80). 

La ligne 100 teste si vous avez retrouvé ou non le sous-marin, c’est- 
à-dire si vous êtes à sa verticale. 

Les lignes 110 et 120 vous permettent de déplacer votre navire. 

Les lignes 130 et 140 font bouger lentement le sous-marin 


CONTACT RU SONRR 


5 LET U =20 
10 LET X = XNT CRND*U) 

20 LET V = XNT (RND*30ï 
30 LET R=NOT PI 
4.0 LET 6=R 
50 LET S=A 
60 CLS 

70 LET H=15S+ABS <B-X> fflBS (Y- 
R) 

75 IF H>191 THEN LET H=191 
80 PP. INT RT RB5 (B-U*INT (B/O) 

) .. RBS ( R —31 * INT (fl/31) ) CHR$ H 
90 LET S=S+SGN PI 
95 IF S=100 THEN GOTO U*U 
100 IF X=B RND R as Y THEN GOTO 16 

0 

110 LET fi=R+ (INKEY$="8") - (INKEY 
* = ••5") 

120 LET B=B+(INKEY$="6")-(INKEY 
$="7") 

130 LET X=X+(RND<.2»-(RND<.2) 
14-0 LET Y=Y+(RND < .2) - (RND < .2) 
150 GOTO U*INT PI 

160 PRINT RT NOT PI.NOT PI.’TRO 
UUE EN 5.: " HEURES" 

170 PRUSE 4-E4- 
180 CLS 
190 RUN 

4.00 PRINT "TROP TARD" 

4-10 GOTO 170 
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2.8. ENVAHISSEURS 

Ce jeu est une version très simplifiée du célèbre ”Space Invaders” 
que l’on trouve dans tous les bars et toutes les salles de jeux. 

La particularité principale de ce programme est qu’il est 
programmé en langage machine. 

L’attrait de cette programmation est, mise à part l’importante 
économie en place mémoire, la grande vitesse de mouvement et de 
réaction. 

Le but du jeu est de détruire les envahisseurs qui rodent au dessus 
de votre char en activant leurs rayons désintégrateurs. 
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Les touches ”8” et ”9” contrôlent les déplacements latéraux de 
votre char. 

La touche ”0” déclenche le tir. 

Entrée du programme en mémoire: 

A cause du programme en langage machine, l’entrée en mémoire 
est un peu complexe. 

Commencez tout d’abord à réserver de la place pour le programme 
en utilisant la fonction REM : 

10 REM WWW ... 1 77 fois ... WWW 
12 REM XXX ... 96 fois ... XXX 
14 REM YYY ... 71 fois ... YY Y 
16 REM ZZZZZZ 

Rentrez maintenant ce petit chargeur hexadécimal : 

100 FOR N = 16514 T0 16690 
110 INPUT HS 
120 SCROLL 
130 PRINT H$ 

140 POKE N, [CODE H$ (1) — 281 * 16 + CODE H$ (2) -28 
150 NEXT N 


Faites alors RUN et tapez les octets suivants: 


FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

03 

02 

06 

0C 

21 

32 

40 

36 

FF 

23 

10 

FB 

C9 

C5 

06 

FF 

10 

FE 

Cl 

C9 

3E 

15 

El 

BE 

2© 

06 

36 

16 

19 

19 

13 

F7 

3E 

34 

01 

3C 

80 

BE 

20 

©1 

0E 

00 

C9 

16 

FF 

21 

82 

40 

ED 

SB 

SF 

40 

16 

0© 

19 

13 

7B 

32 

8F 

40 

3E 

00 

BE 

CS 

2ft 

0C 

40 

01 

05 

00 

3E 

04 

1D 

23 

©C 

09 

3D 

20 

F9 

DS 

11 

2E 

00 

19 

DI 

IS 

EF 

ED 

SB 

3E 

40 

16 

00 

19 

ES 

3R 

3F 

40 

D6 

0D 

FR 

ifi 

41 

3E 

00 

32 

3 F 

40 

21 

8E 

4© 

46 

3R 

BR 

40 

30 

32 

SE 

4© 

06 

01 

21 

BR 

40 

B8 

20 

02 

36 

01 

©6 

0C 

68 

20 

02 

36 

FF 

El 

C3 

BB 

40 

ED 

SB 

BR 

40 

16 

00 

IC 

IB 

El 

19 

36 

16 

23 

36 

4.1 

06 

23 

36 

80 

22 

36 

40 

23 

C3 

EC 
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Changez alors 100 en: 

100 FOR N = 16697 TO 16792 et faites RUN, 


tapez alors: 


2R 

0E 

4-0 

11 

DF 

FF 

19 

36 

17 

06 

03 

19 

36 

17 

3E 

16 

19 

BE 

36 

17 

28 

04. 

10 

F3 

18 

8E 

2B 

2B 

0E 

04- 

36 

16 

23 

©D 

20 

FO 

36 

16 

2B 

2B 

CD 

9B 

4-8 

3E 

34- 

11 

21 

08 

36 

16 

19 

BE 

28 

FO 

04- 

05 

28 

57 

05 

C-B 

20 

CB 

20 

ED 

5B 

8E 

4-0 

16 

00 

ED 

52 

3E 

76 

0E 

85 

BE 

23 

07 

2B 

0D 

20 

F9 

04- 

18 

F4- 

21 

32 

4-0 

53 

16 

80 

19 

36 

00 

13 
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Changez 

100 en : 








100 

FOR 

N = 

16799 TO 

16869 faites RUN 



et entrez : 











01 

FE 

EF 

ED 

78 

CB 

3F 

80 

D2 

39 

4-1 

0© 

20 

0E 

4-0 

36 

16 

CB 

3F 

30 

80 

CB 

3F 

33 

0D 

2B 

3E 

76 

BE 

28 

07 

23 

3E 

76 

BE 

20 

01 

2B 

36 

34- 

22 

0E 

4-0 

CD 

BB 

4.0 

11 

21 

00 

20 

36 

4-0 

19 

£5 

3E 

16 

BE 

20 

06 

36 

15 

19 

19 

13 

F7 

CD 

9B 

4-0 

C3 

02 

4-0 








Enfin changez 100 en: 

100 FOR N = 16876 TO 16881 RUN 
puis entrez : 

36 86 23 36 16 C9 


Effacez alors les lignes du chargeur hexadécimal (100 à 150) puis 
tapez : 

18 CLS 

20 FOR M = 1 TO 32 

30 PRINT-"- 

40 NEXT M 

50 PRINT AT 7,31 + O * USR 16528 
60 GOTO USR 16799 

Le programme est maintenant terminé, sauvez-le sur cassette puis 
faites RUN. 
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Remarques : 

— L’intérêt des lignes de gestion BASIC 18—60 est de pouvoir 
stopper le programme par la touche BREAK. 

— La compréhension du programme, exige une bonne connais¬ 
sance du langage de programmation du Z 80 et ne peut être abordée ici. 
Ce jeu est repris pour cela dans le livre "LANGAGE MACHINE SUR 
ZX 81 TRUCS ET ASTUCES” de la même collection, où il est expli¬ 
qué, commenté et amélioré. 


2.7. INVASION GALACTIQUE 



Dix astronefs étrangers vont apparaître, chacun à leur tour, dans le 
ciel et tenter de se poser sur notre planète. C’est à vous qu’est confiée la 
défense de la terre! 

Aux commandes de votre ZX 81, vous pouvez diriger, à l’aide des 
touches ”5” et ”8”, un missile en direction de l’ennemi. 

Combien laisserez vous de vaisseaux ennemis atterrir? 

Presser une touche quelconque du clavier relance une nouvelle 
partie. 

Structure du programme: 

Les lignes 30 à 170 constituent une boucle qui, parcourue dix fois, 
correspond aux dix astronefs étrangers. 
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Les lignes 80 à 150 constituent une boucle imbriquée dans la précé¬ 
dente boucle, et au cours de laquelle le vaisseau ennemi descend 
(ligne 115) alors que vous déplacez votre batterie de missiles (ligne 100). 

Caractères graphiques: ligne 120 graphies shift T space shift Y graphies 

shift T shift Y 

* 


INURSION SPRTIRLE 

5 LET R=SGN PI+SGN PX 
7 LET B=5 
S LET D=B+B 
10 LET S=NOT PX 
20 LET X=B+D 
30 FOR I=SGN PX TG D 
4-0 LET Y=D + D 
50 LET R =RND*D 
8Q FOR vJ =R +R TO D+D 
100 LET X=X +(X<D*R+B RND INKEY* 
= " 8 *' RND SGN PI) — (SGN PX RND X>N 
QT PI RND INKEY$ = ’‘S’' ) 

110 CLS 

115 LET P=D +R+INT fRND*fl-RND*fl) 
la© PRINT RT ai.X-SGN PI; 

RT U , P —SGN Pi; *• RT Y,X; **' T 

130 IF Y =01 RND X > P -R RND X<P+R 
THEN GOTO R*D*D 

14.0 LET Y =Y —SGN PI 
ISO NEXT ü 
180 CLS 
170 NEXT I 

180 PRINT RT D,NOT PI;S;“ ENNEM 
IS DETRUITS SUR 10** 

19© PRUSE 4-E4. 

194. CLS 
195 RUN 

a©0 LET S=S+SGN PI 

210 PRINT RT U—SON PI,P;;TRB 
P —SGN PI;"**rjTRB P;"*" 

230 LET Y=D+D 
a 4.0 GOTO 170 
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3.1. REFLEXE 


Le ZX 81 affiche au bout d’un temps plus ou moins long un chiffre 
ou une lettre à un endroit quelconque de l’écran. Vous devez alors le plus 
rapidement possible presser la touche correspondante du clavier. Le 
ZX 81 mesure votre temps de réaction et garde en mémoire le meilleur 
temps réalisé depuis le début du jeu. 

Qui de vous ou de vos amis sera le plus rapide? 

Pour retenter votre chance, presser une touche quelconque du 
clavier. 

Structure du programme 

La ligne 20 interrompt pendant un temps aléatoire l’exécution du 
programme. 

La ligne 30 imprime à un endroit quelconque de l’écran un chiffre 
ou une lettre. 

La ligne 50 permet au programme de se poursuivre lorsque vous 
pressez la touche correspondant au caractère imprimé par le ZX 81. 
Tant que cette touche n’est pas pressée, il y a transfert à la ligne 40. 

La ligne 55 réactualise le meilleur temps s’il y a lieu de le faire. 

La ligne 60 exécute un transfert en 80 si le temps de réaction est 
inférieur à 20, en 90 si le temps est supérieur à 40 et en 70 si le temps est 
compris entre 20 et 40. 

OOTRE TEMPS DE REACTION EST:65 


MEILLEUR TEMPS:36 


REUEILLEZ UOUS 


4. 
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REFLEXE 


1 LET G =200 

2 LET F =G 

5 LET C=NOT PI 
1© LET R=RND*25+28 
20 PAUSE RNP*F 

3© PRINT RT RND*21,RNDï3i;CHR$ 
R 

4-0 LET C=C + 1 

50 GOTO CINKEY4=CHR$ R> *20+34- 
54- PRINT RT NQT PI,NOT PI; "UOT 
RE TEMPS DE REACTION EST:";C 
55 IF G > C THEN LET G=C 

LE§! Ç1S^I : ST g PX.PI,NOT PI;-H E rL. 

57 PRINT Rr 20,NOT PI; 

60 GOTO (C <20) *10+ <04-0.1 *20+70 

70 PRINT “UQUS POUUEZ FRIRE MI 
EUX" 

71 GOTO F 

80 PRINT "BRR'JO" 

81 GOTO F 

90 PRINT "REUEILLEZ UOUS" 

205 PRUSE 4-E4- 
210 CLS 
220 GOTO 5 
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3.2. JACK-POT 


Attention, ceci est un jeu dangereux ! On ne joue pas impunément 
au jack-pot avec un ZX 81, c’est pourquoi il est formellement déconseillé 
de s’y risquer! 

Si vous passez outre ce conseil, vous serez très vite pris par la 
passion du jeu, cette drogue infernale dont on ne peut plus se passer une 
fois qu’on y a goûté. Rien ne comptera plus désormais pour vous que 
jouer, encore jouer, toujours jouer pour gagner de l’argent, toujours plus 
d’argent... Le seul moyen de vous guérir de ce vice sera alors de presser 
la boucle "BREAK” puis de faire vite "NEW” avant que cela ne vous 
reprenne ! 

Pour tenter votre chance pressez une touche quelconque du clavier. 
Vous débutez la partie avec cent francs. La mise est toujours de cinq 
francs. Si les trois symboles sont identiques ou s’ils sont tous différents, 
vous pouvez gagner jusqu’à dix fois la mise. Dans les autre cas vous 
perdez votre mise... Le jeu s’arrête quand vous n’avez plus d’argent. 


Structure du programme: 

Les lignes 50 à 170 déterminent par une fonction aléatoire les trois 
symboles. 

Les lignes 180 et 190 testent si vous avez gagné. 

Caractères graphiques : ligne 80 graphies space 

ligne 120 graphies shift A 
ligne 150 graphies shift F 

SS M fi& GRGNE 

UOUS RUEZ 107 FRANCS 
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JRCK.-POT 

5 LET 5=NOT PI 
10 LET F = 100 
20 LET R=NGT PX 
30 LET B=R 
4-0 LET C=R 

50 FOR I=SGN PI TO INT PX 
&© *= ET H = RND*9-t-SGN PI 

si T? EN ocrro 110 

90 LET R=R tSGN PÏ 
100 GOTO 170 

H >5 THEN GOTO 150 
120 PR INT "ffi**." •»; 

130 LET 5=5 +SGN PÏ 
140 GOTO 170 
150 PR INT 

160 LET C=C +SGN PÏ 
170 NEXT I 

180 IF R =INT PI OR B=INT PI OR 
C=INT PI THEN GOTO 240 
190 IF R=SGN PI RND B=SGN PI RN 
THEN GOTO 240 

ISS C1TV=f p I rdu ---'' 

ill G&rS'ggS PI THEN GOTO 330 

24© PRINT "GRGNE" 

11® prxnt =F * 10#int <rnd * 5 > 

e r 0 ^ R ÏNT R gT c JNT PI, 10,-VOUS PU 

275 LET S = S +SGN PI 
280 PRUSE 4E4 
290 CLS 
300 GOTO 20 

I^-ÜsJ^cÔupP fluEZ TOUT PER0 “ 


3.3. COURSE DE CHEVAUX 

L’écran de votre téléviseur va se transformer en un véritable champ 
de courses. Trois pur-sangs sont au départ de chaque épreuve. Vous 
pouvez parier la somme que vous voulez sur le cheval de votre choix. 

Vous possédez mille francs au début du jeu. Avant chaque course, 
le ZX 81 vous demande le numéro du cheval sur lequel vous désirez 
parier. Vous devrez aussi entrer votre mise et la course pourra alors 
commencer. 
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Si votre cheval gagne, vous pouvez obtenir un gain allant jusqu’à 
vingt fois votre mise ! Vous perdrez votre mise si votre cheval perd... 

Tant que vous possédez de l’argent, il vous est possible de rejouer 
en pressant une touche quelconque du clavier. Le jeu s’arrête dans le cas 
contraire. 

Structure du programme: 

La ligne 20 vous permet d’introduire le numéro du cheval sur lequel 
vous allez parier. 

La ligne 70 enregistre votre mise. 

La ligne 90 dessine le champ de courses. 

La ligne 140 calcule un nombre aléatoire qui peut être 1, 2 ou 3. 

Les lignes 140 à 160 font avancer le cheval dont le numéro a été 
tiré par la ligne 130. 

La ligne 210 teste si la ligne d’arrivée a été franchie par un cheval. 

Caractères graphiques : ligne 180 graphies shift space 

ligne 190 graphies shift A 
ligne 200 graphies shift F 


33 



CHEUflL(1-3)?S 
PBRI7300 

PERDU... 

RUOIR=4-00 FRANCS 



























COURSE DE CHEURUX 


5 LET U=10 
10 LET U=U+U 
15 LET H=U*U*U 
20 PRINT "CHEURL ( 1-3 J•?**; 

4.0 INPUT C 
50 PRINT C 
60 PRINT "PBRI?"; 

70 INPUT P 
60 PRINT P 

90 PRINT RT KJ, NOT PI;"1”;RT U, 
U ;" I" ; RT 15,NOT Pi;"2";RT 15/U;" 

: RT U. NOT PI; "3" ; RT U,U;"|" 

10© LET X=U.-'U 
110 LET V =X 
120 LET Z=X 
130 RRND 

14-0 LET R = INT (RND -Ï INT PI + S6M P 
I) 

ISO IF R=SGN PI THEM LET X=X+SG 
N PI 

160 IF R=U/U THEN LET Y=Y+3GN P 


I 

170 IF R=INT PI THEN LET Z=2+5G 
NPI _ 

180 PRINT RT U,X;“B" 

190 PRINT RT 15 , Y; Tî ^" 

200 PRINT RT U, Z; 

210 IF X=U OR Y =U OR Z=U THEN G 
OTO 230 
220 GOTO 14-0 

230 PRINT RT INT PI,NOT PI; 

235 IF X=U RND C=SGN PI THEN GO 


TC U*U 

24-0 IF Y =U RND C=U/U THEN GOTO 


u*u 

250 IF Z=U RND C=INT PI THEN GO 
TO U*U 

260 LET H =H — P 

270 PRINT -PERDU..," 

280 LET H =H —P 
285 GOTO U*U+U 
4-00 PRINT " GRGNE" 

4-10 LET H =H + P ■* INT (RND-sLO 
4-20 PRINT "RUGIR = " ; H; " FRANCS" 
4-30 IF H < -NOT PI THEN GOTO U*U* 
U 

435 PRUSE U*U 

436 CLS 
448 GOTO U 

1O00 PRINT "VOUS RUEZ TOUT PERDU 
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r 

3.4. ROULETTE RUSSE 

Bien que l’époque des tsars soit révolue, voilà que ressurgit du 
passé, pour vous, un ”sport” beaucoup pratiqué autrefois par les offi¬ 
ciers russes. Par dix fois vous allez presser la gâchette, en l’occurence la 
touche ”NEWLINE”. A chaque fois l’angoisse s’emparera de vous et 
vous expérerez le ”CLIC...” salvateur. Vous ne serez certain de survivre 
que, lorsque les dix balles auront été tirées et, bien sûr, jamais aupara¬ 
vant le fatal ” + + + BANG+ + + ” n’aura clignoté sur l’écran. 

Pour retenter votre chance, lorsqu’une partie est terminée (bien ou 
mal...), pressez une touche quelconque du clavier. 

Si 


CLIC. 


Structure du programme: 

Les lignes 15 à 45 constituent une boucle au cours de laquelle vous 
pressez la gâchette (ligne 20) et si le sort vous est favorable (ligne 35), 
vous êtes sauvé (ligne 40) jusqu’à la balle suivante. 

Si le hasard joue contre vous, les lignes 55 à 70 font clignoter un 
sinistre ” + + +BANG+ + + ”. 

Les lignes 90 à 105 font clignoter un symbole graphique pendant 
un court instant, histoire de vous faire attendre un peu le résultat du tir... 

Pour rendre le jeu plus "difficile”, changer la ligne 35 en: 

35 IF RND <. 3 THEN GOTO 55 

Pour augmenter le "suspense”, changer la ligne 90 en: 

90 FOR K = SGN PI TO A + A 

Caractères graphiques : ligne 95 graphies shift F 

ligne 100 graphies shift G 
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ROULETTE RUSSE 


10 LET R =10 

15 FOR I=S6N PX TO R 

20 XNPUT fl$ 

25 CLS 
30 GOSUB 90 

35 IF RMD<.15 THEM GOTO 55 
4.0 PRINT RT R, R; X, “CLIC. . . " 

4-5 NEXT I 

50 IF RND > =.15 THEM GOTO 80 
55 FOR J=SGN PI TO A-* INT PI 
60 PRINT RT R , R; " 4 + +BflNG4+ + " 

65 PRINT RT R . R ; " «MsIgYjleim » 

70 NEXT U 
75 GOTO 120 

80 PRINT RT NOT PI,NOT PI;”UOU 
S SURUIUEZ" 

85 GOTO 120 
9© FOR K =SGN PI TO R 
95 PRINT RT INT PI, R; '*fiB*‘,CHR$ 
(1+156) 

100 PRINT RT INT PI, R; *'l” , ** ** 

105 NEXT K 

110 RETURN 

120 PAUSE 4-E4- 

125 CLS 

130 RUN 


^ ^ $3 ^ IM G ^ 


3.5. JEU DU 21 


Vous pouvez désormais jouer à ce jeu bien connu avec votre ZX 81 
qui tiendra le rôle de la banque. 

Au départ vous possédez cent francs. Après avoir misé la somme 
que vous voulez, vous pouvez lancer le dé autant de fois que vous le dési¬ 
rez pour que votre total de points se rapproche le plus possible de 21 
sans toutefois dépasser cette valeur. 

Pour lancer le dé pressez ”1” puis "NEWLINE”. Lorsque vous 
jugerez votre total suffisant, pressez ”2” puis "NEWLINE” et le ZX 81 
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lancera alors le dé à son tour. Il détermine ensuite le gagnant et selon les 
cas augmente ou diminue votre somme d’argent de la mise que vous 
aviez jouée. 

Pour continuer la partie, pressez une touche quelconque du clavier. 
Le jeu s’arrête définitivement lorsque vous n’avez plus d’argent. 

ARGENT: 85 
MISE?15 


JOUEUR:18 
BANQUE:21 


UOU5 POSSEDEZ 70 


Structure du programme: 

Si vous avez entré ” 1 ” (ligne 42), le dé est lancé (ligne 50). 

Quand vous entrez ”2” (ligne 45), la ligne 100 teste si votre total 
dépasse 21. 

Le ZX 81 lance le dé avec la ligne 105 et teste si son total dépasse 
le vôtre ou s’il dépasse 21. 

Les lignes 230 et 240 calculent votre gain ou votre perte... 
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JEU DU £1 


5 LET 

10 LET B =10 
15 LET F=B*B 
£0 CLS „_ 

21 LET H=NQT PI 
oo I FT Z=H 

2? PRINT -ARGENT: »; F 

28 PRINT "MISE?".; 

29 INPUT M 

30 PRINT M 

t! if P u!sgn PI+SGN PI THEN GOT 
O B*B 

50 LET H =H+INT (RND*6î +5GN PI 
55 PRINT RT B..NOT PI; "JOUEUR; " 
; H 

60 GOTO fl+B 

100 IF Z >H RND Z <R +5GN PI OR Z> 
R OR H >R OR H=R RND Z=R THEN GOT 


O A*B 

105 LET Z = Z +INT (RND*6)+SGN PI 
110 PRINT RT B + INT PI..NOT PI; "B 
«NOUE: Z 

115 GOTO B*B 

230 IF (Z > H OR H >R) RND Z<R+SGN 
PI THEN LET F =F-M 

24-0 IF (Z <H OR Z >Rî RND H <ft+SGN 
PI THEN LET F=F+M 

24-5 IF F <NOT PI THEN GOTO Rtfl 
250 PRINT RT R,B;“UOUS POS5EDEZ 
F 

255 PRUSE 4-E4- 
260 GOTO B+B 
4-4-1 PRINT "FIN" 




4 

Adresse 



4.1. ARRÊT DE VOLÉE 


Vous avez été sélectionné pour être gardien de but de l’équipe de 
France de football au cours de la coupe du monde. Vos capacités de goal 
seront sûrement mises à rude épreuve par les avants étrangers, c’est 
pourquoi ce jeu va être un excellent entraînement pour vous ! 
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Quinze ballons vont être tirés successivement à partir de positions 
différentes et vous devez bien sûr en arrêter le maximum. 

Pour déplacer votre goal, utilisez les touches ”5” et ”8”. 

En haut de l’écran sont affichés le nombre de ballons déjà tirés à 
droite et le nombre de ballons arrêtés à gauche. 

Pressez une touche quelconque du clavier pour recommencer une 
nouvelle série de quinze tirs après la fin du jeu. 

Structure du programme: 

Les lignes 40 à 150 constituent une boucle, parcourue quinze fois, 
au cours de laquelle est tiré un ballon (ligne 70). Le ballon descend avec 
les lignes 80 à 130 et vous pouvez bouger votre goal grâce à la ligne 100. 

La ligne 140 augmente votre score si vous avez réussi à bloquer le 
ballon. 


Caractères graphiques: ligne 120 graphies shift W shift O 


0 


S 


O 
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RRRET DE VOLEE 


5 LET K=NOT PI 
10 LET S=K 
20 LET R= 15 
30 LET X=fi 

4.0 FOR I = SGN PI TO fi 
50 CLS 

6© PRINT fiT K , K ; S ; hT K.» fi <-fi.; I 

70 LET H = INT «PltRMDtRj 
SB FOR Y=K TO fi-SON PI 
00 PRINT fiT Y.. H;*'O" 

10© LET X=X+(INKEY$=“6" RND X *:fi 
+fi) - <INKEY$="5" RND X î-KÏ 
120 PRINT fiT R.Xt" inS " ; fiT Y » 
H ; “ ’* r 

13© NEXT Y 

14© LET S=5f (X+2=H OR XfS=H) 

15© NEXT I 

150 PRINT RT K., K.; “SCORE=" ; S; ‘VI 
5“ 

17© PROSE 4E4 
180 RUN 


4.2. SLALOM SPÉCIAL 


!--« 

*--l 

S i 

I--I 

S--I 

8--I 

I--* 

!--■ 

*--i 

I--I 


Grâce à votre ZX 81 vous êtes qualifié d'office pour le champion¬ 
nat du monde de ski. C’est un slalom spécial comptant pour ce cham¬ 
pionnat que vous allez devoir effectuer. 
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L’épreuve est courte car le slalom ne compte que dix portes mais 
celles-ci sont très proches les unes des autres et le ZX 81 dévale les 
pentes à toute vitesse ! 

Vous dirigerez votre skieur avec les touches ”5” et ”8”. Chaque 
porte franchie dans de bonnes conditions, rapporte dix points. Une porte 
ratée n’occasionne pas de pénalité mais heurter un poteau vous coûtera 
dix points. 

L’épreuve terminée, vous pouvez reprendre le départ en pressant 
une touche quelconque du clavier. 

Structure du programme: 

Les lignes 30 à 50 constituent une boucle qui place les portes du 
slalom. 

La ligne 70 permet le déplacement du skieur. 

Les lignes 120 et 130 vérifient si vous avez bien passé ou non 
chaque porte. 

Caractères graphiques : ligne 40 graphies shift 8; graphies shift 5 

ligne 130 graphies shift 8; graphies shift 5 
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5LRLOM SPECXRL 


5 LET 1=2 
10 LET Y=5 
15 LET 6=Y*I 
20 LET S=NOT PX 
30 FOR X = I TO 6+6 STEP I 
4-0 PR INT RT. X , RMD*J+Y ; " *- -| " 

50 NEXT X 
55 LET ‘Y =6 

60 FOR X =NOT PI TO 6+6 
70 LET Y =RBS (Y+(INKEY$ = "8" RN 
D Y <6+6) — t INKEY$ = "5” ) ) 

90 PR INT RT X .. Y; 

100 LET C=PEEK CPEEK 16396+256# 
PEEK 16399) 

110* PR INT "*•* 

120 IF C =CODE THEN LET S=S + 

J 

13© IF C=CODE "1 ** OR C=CODE " 1" 

THEN LET 5=5-6 

14-0 PR INT RT X..Y; '* M 

150 NEXT X 

160 PRINT RT NOT PI,NOT PI; “SCO 

= “ • g 

170'PRUSE 4E4 
180 CL5 
190 RUN 


SCORE =70 

8- I 
I -I 
1 - 1 

--1 

i -I 

I -I 

8 - 1 
I- 8 
1- E 
I -8 
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4.3. MUR 



A l’aide d’une raquette et d’une balle vous devez essayer de 
détruire un mur de briques. 

La balle en pénétrant dans le mur rebondit de façon bizarre. A 
vous d’être assez rapide pour la récupérer et la renvoyer. 

Nous allons présenter deux versions de ce jeu. La première, 
”MUR” est réduite au maximum pour ”rentrer” sur votre ZX 81 1K. 
Elle est de ce fait relativement limitée. 

L’autre version, "BRIQUES” est écrite pour un ZX 81 équipé de 
l’extension 16 K. Elle contient en outre une routine en langage machine 
qui augmente considérablement sa rapidité et sa souplesse de jeu. Cette 
version est décrite à la fin du livre, dans la partie des ”jeux 16 K”. 

Voici donc la version 1 K de ce célèbre jeu. Les touches ” 5 ” et ” 8 ” 
permettent de déplacer la raquette latéralement. 

Le programme et le buffer d’écran se partageant la mémoire dispo¬ 
nible il n’est pas possible d’agrandir le terrain de jeu de façon notoire, 
(sur la version 16 K il occupe tout l’écran, ce qui rend le jeu beaucoup 
plus agréable). 

Bien qu’ayant peu d’intérêt ici, l’affichage d’un score peut consti¬ 
tuer un très bon (mais difficile) exercice de programmation. 

Structure du programme: 

Les lignes 40 à 90 dessinent sur l’écran le terrain de jeu. 

La ligne 130 calcule la position de la raquette en fonction des 
touches lues. 
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La ligne 160 affiche cette raquette (que la ligne 120 efface pour 
simuler son déplacement). 

Les lignes 170 à 230 calculent le mouvement de la balle et ses 
rebonds. 

La ligne 240 teste la collision éventuelle avec des briques (graphie 
shift G). 

La ligne 250 affiche la balle. 

Les lignes 1030 à 1050 réinitialisent le jeu de façon habituelle. 



Graphiques utilisés: ligne 50: graphie space + 1IX graphie shift G 

+ graphie space 
ligne 80: 2X graphie space 
ligne 170: 2X graphie shift 7 
ligne 240: graphie shift G 
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MUR 


H =6 
I=SGN 
A=H-I 
B=A+A 
M =S6H 
K = I TO 


PI 


PI 

H 


TO P 
B"; TRB 


B+I+I; 


«ND 

I) 


fl<S 


5 LET 
1® LET 
2® LET 
3® LET 
36 LET 
4-0 FOR 
5© PRINT ‘ 

6© NEXT K 
70 FOR K=I 
30 PRINT ”1 
©0 NEXT K 
100 LET C=I 
110 LET D=C 
120 PRINT RT H +B,A;** 

13© LET R=fl +(INKEV$="3" 

)-CINKEY$="5" RND R >RBS 
16© PRINT RT M+B,R; 

170 PRINT RT H . C; " *' 

180 IF H=NOT PI OR H =B 
THEN GOTO 1030 
190 LET H=H+I 

20© LET C=C+D _ 

210 IF C<M+RBS D OR 
THEN LET D = -D 
220 PRINT RT H^C; 

23© IF H =B THEN GOTO B*B*B 
24-0 IF PEEK (PEEK 1639B+256*PEE 
K. 16399) =CODE “W THEN LET I=RBS 
I 

250 PRINT •*." 

26© GOTO 120 
1000 LET I=-I 

1010 LET D =SGN D (INT (RND+RND) + 
RBS I) 

1020 GOTO 250 
PAUSE 4-E4- 
CLS 
RUN 


RND fl < > C 


£> 


103© 

104.0 

1050 


4.4. SQUASH 
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Il est inutile de présenter ce jeu bien connu des amateurs de jeux 
vidéo. Vous pouvez désormais y jouer avec votre ZX81. 

Vous disposez de trois balles à chaque partie pour réaliser le score 
maximum, c’est-à-dire garder chaque balle en jeu le plus longtemps 
possible. Pressez une touche quelconque pour lancer une nouvelle balle 
après avoir perdu la précédente. 

Pour déplacer votre raquette vers la gauche ou vers la droite, utili¬ 
sez les touches ”5” et ”8”. 

Une nouvelle partie est lancée automatiquement quand les trois 
balles ont été jouées... et perdues. 

Structure du programme: 

Les lignes 90 à 97 dessinent le terrain de jeu. 

La ligne 110 permet le déplacement de la raquette en la maintenant 
dans les limites du terrain. 

La ligne 130 positionne la raquette. 

La ligne 140 teste si la balle est perdue ou non. 

Les lignes 150 à 210 traitent le déplacement de la balle en tenant 
compte des rebonds contre les murs. 

La ligne 220 accélère aléatoirement la balle. 

Caractères-graphiques : ligne 90 graphies space (15 fois) 

ligne 95 graphies space, graphies space 
ligne 130 graphies shift 7 shift 7 
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SQUASH 


I —N 

T RB H+H; "I 


5 LET 0=10 

6 LET F =NOT PI 

7 LET G=F 
10 LET B =SGN PI 
20 LET C=B 
30 LET N =B 
4-0 LET D=B 
50 LET E=B 
60 LET H=7 
90 PRINT I 
93 FOR 1=6 
95 PRINT ■ 

97 NEXT I 

100 PRINT RT fi,H.:" 

110 LET H=H MINKEY$ = "8“ AND H < 3. 
3) - IINKEY$ = *'5" RND H>fiBS B) 

130 PRINT RT fi , H ; 

14-0 IF D=R-N RND HOE RND H+RBS 
BoE THEN GOTO AiAïA 
150 LET G =G +ABS B 
160 PRINT RT D,Ej " ** 

170 LET D=D+B 

160 IF D =RBS B OR D=R-N THEN LE 
-y* g s —B 

190 LET E=E+C 
200 IF E=RBS B 

C = —C- 

210 PRINT RT D.E;”.“ 

220 IF D =fi-N THEN LET C=SGN C* C 
INT (RND+RND)+RB5 
230 GOTO R*R 
1000 LET F =F +RBS B 

1010 PRINT RT NOT PI..RB5 B.;F.; ,, /”‘ 

:• G 

1020 PRUSE 4-E4- 
1030 CLS 

104-0 IF F <3 THEN GOTO R 
1050 RUN 


OR E=13 THEN LET 


* 


\ 

J 


''H- 
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4.5. CANOË KAYAK 



Vous allez effectuer, avec votre ZX 81, une périlleuse descente de 
torrent de montagne. Les rochers sont nombreux et il vous faudra 
manoeuvrer habilement pour éviter de couler après une collision avec 
l'un d’eux. Saurez-vous terminer sans dommages ce difficile parcours? 

Pressez la touche ”5” pour déplacer votre canoë kayak vers la 
gauche et la touche ”8” pour aller vers la droite. 

Quand le jeu est fini, appuyer sur une touche quelconque pour 
prendre le départ d’une nouvelle descente. 


Structure du programme: 

La ligne 30 détermine la longueur de la descente que vous allez 

faire. 

La ligne 50 vous permet de déplacer le canoë kayak. 

La ligne 70 vérifie s’il y a eu ou non collision avec un rocher. 
La ligne 110 place les rochers de façon aléatoire. 


Caractères graphiques: ligne 70: graphies space 

ligne 110: graphies space (2 fois puis 4 fois) 
ligne 2025 : graphies shift T shift Y shift Y Shift 
T Shift T shift Y 
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CANOË KflYflK 


10 LET A =10 
30 LET B=R+R 
25 LET C=A 

30 LET H=B XNT (RNOtfiïRJ 
4-0 SCROLL 

50 LET R=fl+<INKEî'$= ,, e" RND A<B 
+PI) - tINK£Y*=‘’5” R ND R;NOT PD 
60 PR INT RT NOT PI.. R; 

7*0 IF PEEK (PEEK 16326 4-256 *PEE 
K 16322)=CODE THEN GOTO C*C* 

C 

60 PRINT "U" 

20 LET H=H-5GN PI 
100 IF H=NOT PI THEN GOTO C*C*B 
105 PR INT RT B^C+C.. NOT PI.; 

110 IF H >NQT PI T HEN PRINT TRB 

RND * 16 4-0 ” « WÊÊÊSH" 

120 GOTO B+B 

100© PRINT RT NOT PI,R, "VOUS COU 
LEZ” 

1010 PAUSE B*B*B 
103© CLS 
104-0 RUN 

2000 FOR I=PI TO R 

2025 PRINT TRB RND *6 ; **/VWW' 

2035 NEXT I 

2037 PRINT RT NOT PI..NOT PI; “FIN 
DU TRAJET” 

204-0 GOTO 1010 


4.6. CASSE-PIPES 

Retrouvez avec votre ZX 81 l’ambiance des fêtes foraines. 
Quatorze cibles sont placées en haut de l’écran et vous avez vingt balles 
pour en toucher le maximum. Un autre critère entre aussi en jeu. Il faut 
en effet descendre les cibles le plus rapidement possible... 

Un petit chariot se déplace alternativement de droite à gauche et de 
gauche à droite. En pressant n'importe quelle touche, vous déclenchez le 
tir à partir de la position qu'occupe le chariot à l’instant où vous 
appuyez sur la touche. 

Il n’est déjà pas très facile de descendre toutes les cibles. Saurez- 
vous le faire plus vite que vos amis? 
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Structure du programme: 

Les lignes 45 à 60 placent les cibles en haut de l’écran. 

Les lignes 70 à 110 assurent le déplacement du petit chariot. 

La ligne 125 teste si vous avez tiré ou non. Dans F affirmative, une 
petite croix est dessinée à l’endroit où vous avez tiré (ligne 145). 

La ligne 150 teste si une cible a été touchée. 

La ligne 170 vérifie si toutes les cibles ont été touchées ou non. 

Caractères graphiques : ligne 50 graphies space 

ligne 110 graphies shift T shift Y 

a a+n b+b+b++ + a+« + ■+■ + 10 


A 
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CRSSE-PIPES 


5 LET 
7 LET 
10 LET 
15 LET 
20 LET 
30 LET 
35 LET 
4-5 FOR 
50 
60 


A = l© 

B =20 
X =NGT 
M=X 
C=X 
T=X 
I=SGN 
K=SGN 
PRINT RT 
NEXT K 


PI 


PI 

PI 

NOT 


TO 27 
Pi,K; 


STEP B/R 


70 PRINT RT B,X;“ 

80 LET X=X + I 
90 IF X=NOT PI OR X =23 THEN LE 
T I=-I _ 

110 PRINT RT B,X;"."V* _ 

125 IF INKEY$ < > " THEN GOTO 14-© 
130 LET T=T+SGN PI 
135 GOTO 70 

14-5 PRINT RT NOT PI,X;"+" 

14.6 LET M=M+SGN PI 
14-8 PRINT RT NOT PI, fi+B; M 
14-9 IF M=B THEN GOTO A*R*A 


ISO IF INT (X *R./B- INT 
NOT PI THEN GOTO 130 
160 LET C=C+5GN PI 

IF C <14- THEN GOTO 
PRINT RT R. NOT PI; 


170 

180 

T 

1000 

1010 

1020 


(XfrA.-'B) J = 


12S 

"TEMPS =' 


PAUSE 
CL S 
RUN 


4-E4- 


4.7. FIL D'ARIANE 



Avant de pénétrer dans le ténébreux labyrinthe où il devait tuer le 
Minotaure, Thésée attacha à sa ceinture le fil que lui remit alors Ariane. 
Grâce à ce fil. Thésée put retrouver la sortie, une fois sa mission 
accomplie. 
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Tel Thésée, vous vous êtes aventuré dans un labyrinthe dont il 
s’agit maintenant de ressortir. Heureusement que votre ZX 81 est là pour 
jouer le rôle d’Ariane ! Vous devez suivre pas à pas le chemin qu'il vous 
trace jusqu’à ce que vous soyez arrivé sur la lettre F du mot FIN. Le 
moindre écart vous perdrait à tout jamais dans ce labyrinthe infernal... 

Pressez la touche ” 7 ” pour suivre les évolutions du chemin vers 
le haut et la touche ” 6 ” pour aller vers le bas. 

Pour recommencer une nouvelle partie, pressez une touche quel¬ 
conque du clavier. 

Structure du programme: 

Les lignes 20 à 70 dessinent le chemin à suivre. 

Les lignes 163 et 167 permettent d'accélérer ou de ralentir l'avance 
le long du chemin. Le listing donne la version lente du jeu. Pour l'accélé¬ 
rer, et donc le rendre plus difficile, changer la ligne 163 en : FOR H = B 
TO C 

La ligne 170 vérifie si vous êtes arrivé au bout du chemin. 

La ligne 180 vérifie si vous êtes toujours sur le chemin. 
Caractères graphiques: ligne 160: graphies shift M 


H 


PIN 




FIL D"RRIRNE 


5 LET B=5 

6 LET C=B+B 

7 LET R=C 

10 PR INT RT R.R-R," -" 

20 FOR I=B TO B*B 
30 PRIMT RT R,Z;”-" 

4.0 LET R=R-MNT (RND*3.l -BsB 
50 IP R 4 B THEN LET R=B 
60 IF R>B+C THEN LET R=B + C 
70 NEXT I 

80 PRINT RT R/I; "FIN" 

90 LET R=C 
100 LET I=C-C 
110 PRINT RT fl,!;'*-" 

120 LET I = I + B,'B 

130 LET R=R+ (INKEY$ = "6'*» - ( INKEY 
$ = "7") 

14-0 PRINT RT R.. I; 

150 LET K=PEEK (PEEK 16398+256* 
PEEK 16399) 

160 PRINT "B" 

163 FOR H=B TO C+B 
167 NEXT H 

170 IF K =CODE "F” THEN GOTO C*C 

*C 

ISO IF K =CODE •*-•■ THEN GOTO C*C 

^190 PRINT “UOUS ETES PERDU" 

500 PRUSE 4-E4- 
510 CLS 
520 RUN 

1000 PRINT "BRfiUO i UOUS UOILfi SR 
UUE " 

1010 GOTO B *C -SC 
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L’état major a été formel. 11 faut absolument détruire les unités 
ennemies qui se sont infiltrées dans vos lignes. 

Vous allez faire dix passages au-dessus de la zone à bombarder et 
vous pouvez à tout moment lâcher une bombe en pressant une touche 
quelconque du clavier (sauf la touche Break bien sûr). 

Alliez la prudence à la précision car si le fait de détruire une unité 
ennemie vous rapporte un point, anéantir une de vos propres unités qui 
se trouvent sur le terrain vous enlève un point. 

Le jeu s’arrête après dix passages mais vous pouvez le relancer en 
pressant sur une touche quelconque du clavier. 


Structure du programme: 

Les lignes 25 à 120 constituent une boucle qui, parcourue dix fois, 
correspond aux dix passages. 

Les lignes 34 à 40 placent de façon aléatoire les unités amies et 
ennemies. 

Les lignes 60 et 70 déclenchent le tir lorsque vous le désirez. 

Les lignes 125 et 130 arrêtent le jeu après les dix passages et per¬ 
mettent sa relance par pression d’une touche quelconque du clavier. 

Les lignes 500 et 505 dessinent la trajectoire de la bombe. 

Les lignes 520 à 540 comptabilisent les points en vérifiant si le 
point d’impact de la bombe correspond à la position d'une unité amie ou 
ennemie. 
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Caractères graphiques : ligne 38 graphies shift A (unité amie) 

graphies shift F (unité ennemie) 
ligne 55 graphies shift N 



B 52 


5 LET B =5 

6 LET Z =B — INT PI 

7 DIM U(Z) 

S DIM T tZ) 

10 LET C=B+B 
15 LET R=B+C 
20 LET S=C-C 
25 FOR N =C SC TÜ C 
30 CLS 

34- FOR I=B/B TO Z 

35 LET T( I )= INT (RND*(fl+fl)) 

35 LET U(I>=INT 

37 IF U(I)=T(I) THEN LET U(I)- 
5 

38 PR INT RT R +B .. T CI) ; "I” RT fl + 
B . U ( I) 

4-0 NEXT I 
4-5 LET U=C-C 

50 FOR X=R+R TO fl-R STEP -fi/fl 
55 PRINT RT R..X; , 'B" 

60 IF U=C-C RND INKEY$ < >”" THE 
N LET U=fl 

7© IF U<>C-C THEN GOTO R*C 
100 PRINT RT R.X:" 

105 NEXT X 

110 PRINT RT R,R; 5; N 

120 NEXT N 

125 PAUSE R*R*R 

130 RUN 

500 LET U=U+B/B 
505 PRINT RT 'J,X; , V' 

510 IF U<R+B THEN GOTO C*C 

520 FOR I=B/B TO Z 

530 LET S=S+(X=T(I))-(X=ü(I)) 

54-0 NEXT I 

550 LET U=U-U 
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4.9. MISSILE SOL-AIR 


Pour ravitailler ses troupes, l’ennemi a établi un véritable pont 
aérien au-dessus du secteur dont vous avez le commandement. Cette 
situation n’étant plus tolérable, vous allez devoir détruire le maximum 
d’appareils ennemis avec des missiles lancés par votre ZX81 mis en 
batterie. 

En pressant sur la touche ”F” vous déclenchez le tir d’un missile. 



Structure du programme: 

Les lignes 120 à 150 et 160 à 190 constituent deux boucles qui font 
circuler dans les deux sens les appareils ennemis au-dessus de vous. 

Les lignes 211 à 220 dessinent la trajectoire du missile lorsque.vous 
en avez déclenché le tir (lignes 145 et 185). 

La ligne 222 vérifie si votre tir a porté. 

Caractères graphiques : ligne 130 graphies shift R shift E 

ligne 180 graphies shift R shift E 

ligne 210 graphies shift R shift E 

ligne 215 graphies shift T shift 4 
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w 


MISSILE SOL-AIR 

10 LET E =30 
20 LET 5=E-E 
30 LET F=2 
4-0 LET H = F ✓'F 
50 LET K=210 

120 FOR I=E TO H STEP -H 

130 PRINT RT F I.; RT F., I.;" 

14-5 IF INKEY$="F" THEN GOTO K 

150 NEXT I 

160 FOR I=H TO E 

180 PRINT RT F.. I.RT F.. I..‘ “ 

185 IF INKEY $ = '* F " THEN GOTO K 
190 NEXT I 
200 GOTO E*F*r 

210 PRINT RT F.. I.; 

211 FOR X =20 TO H STEP -H 

212 LET Y=E/F 

215 PRINT RT X..Y; "A *’ 

220 PRINT RT X..Y; " 

222 IF F=X RND Y = I THEN GOTO K +• 
E 

225 NEXT X 
227 GOTO E 

240 PRINT RT X..Y.; "BRNG" 

242 CLS 

245 LET S=S+H 

246 PRINT S 

250 GOTO E*F*F 
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4.10. CATAPULTE 


Soyez, pendant quelques instants, un centurion romain qui dirige 
l’attaque d’une place-forte assiégée. 

Les Barbares défendent très bien leurs remparts. Il vous faut donc les 
atteindre à l'aide d’une catapulte. 

Cette catapulte est d’excellente qualité car vous pouvez régler Indé¬ 
pendamment la vitesse et l’angle du tir. La cible est sur votre droite (gra¬ 
phie ”M’’), la catapulte est, elle, située dans le coin inférieur gauche. 

A chaque tentative de tir, le programme demande la vitesse et 
l’angle. (Pour avoir quelque chance d’atteindre la cible, il faut que la 
vitesse soit comprise entre 700 et 1100, et l’angle entre 0 et 90 degrés). 

Le programme compte le nombre de tentatives nécessaires pour 
atteindre la cible. 

A vous de jouer... 


Structure du programme: 

La ligne 80 dessine la cible. 

Les lignes 140 à 160 déterminent la trajectoire du projectile. 

Les lignes 170 à 200 calculent le résultat du tir. 

Les lignes 210 à 290 commentent les résultats et réinitialisent le 

jeu. 

Caractères graphiques: ligne 80 graphie shift ”M” 
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CRTRPULTE 


1 LET J=S0 
10 LET R =28 
30 LET B = INT (RND*JL> 

30 LET C=SGN PI 
4-0 LET D=RND.-'S+,S 
50 LET E =D 
58 CL S 

70 LET D=NOT PI 
80 PPINT RT B„R;"*S" 

90 PRINT RT D/Dj"G/,"UITESS 
E? ; 

100 INPUT F 

110 PRINT Fü-RNSLE?"; 

130 INPUT G 
130 PRINT G 
14-© LET G=G*„0174- 

150 LET H =s INT (F/fl#Dï5IN G-(4-.3 
*D*D) ) 


H < 


160 LET I=INT (D»F/fl*COS GJ 
170 IF I>PIiJ OR H>«J + U + PI OR 
NOT PI THEN GOTO 360 
180 PLOT I.H 
190 LET D=D+E 

300 IF INT £1/2)=R RND «J+SGN PI 
-INT (H/2)=B THEN GOTO 330 
310 GOTO 150 
330 UNPLOT I.H 

330 PRINT "SLR" 

331 IF C <fl/PI THEN PRINT "BROUO 


333 IF OR THEN PRINT "BOIRE OU 
«JOUER mm" 

34-0 PRUSE R**PI 
350 GOTO 5GN PI 
360 LET D=E 
370 PRUSE R**PI 
380 LET C =C + 1 
390 GOTO PI*«J 

> 1 

UITESSE7850 g ■ 

RNGLET70 - 


■ 




SX 
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4.11. RALLYE 


5, 4, 3, 2, 1... C’est parti! Au volant de votre ZX 81 turbo vous 
voilà en piste. Une piste particulièrement accidentée qui va mettre vos 
réflexes et votre attention à rude épreuve. 

Pour diriger votre machine vous disposez des traditionnelles 
touches curseur ”5” et ”8”. 

Si par malheur (un malheur assez fréquent hélas !) vous heurtez le 
bord de la piste, le programme affichera le nombre de kilomètres que 
vous avez réussi à parcourir sans encombres. 

Pour retenter votre chance, il vous suffit alors de presser une touche 
quelconque (sauf ”BREAK”). 

N'oubliez pas d’attacher vos ceintures, bonne route... 



Structure du programme: 

Les lignes 1 à 60 initialisent les variables. 

La ligne 100 envoie le programme en 900 où la piste est dessinée. 

La ligne 920 positionne votre véhicule ”Y”. 

La ligne 930 renvoie conditionnellement en 256 ou en 520 selon 
que le ”Y” heurte ou non la piste. 
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Les lignes 520 à 610 affichent le score et réinitialisent le jeu. 

Enfin les lignes 256 à 270 lisent le clavier et calculent la nouvelle 
position du véhicule. 


RRLLVE 


1 LET J =256 
10 LET E=SGN PI 
20 LET F=5 
30 LET T = F — INT PI 
4-0 LET R=T+PI 
50 LET G =R 


60 LET ü = — INT (PïîPD 

86 SCROLL 
100 GOTO >J*PI 
256 LET 0=0 +SGN PI 

260 LET R=R+(INKEY$ = “6“) - ( INKEY 
$ = ** 5 ) 

270 GOTO J/PI 
520 PRINT O 
600 PRUSE J*F 
610 CLS 
620 RUN 

900 PRINT RT F+F .G; "■B. . .M*> 

G=G+RNDtT* (NOT G>T*PI#P 
I) -RND*T*(NOT G <PI+PI) 

920 PRINT RT T.R;"Y“ 

PRINT RT T+E,R; 

930 GOTO (PEEK (PEEK 16398+Ü*PE 
EK 16399) =CODE "■*•>*0+0 



4.12. CHASSE AU PAPILLON 



Un oiseau sans cœur cherche à attraper un pauvre papillon qui 
batifole autour de lui. 

C’est vous qui gérez les agissements de cet oiseau maléfique. Vous 
contrôlez son déplacement sur l’écran à l’aide des touches ”curseur”, 
”5”, ”8”, ”6” et ”7”. 

L'oiseau doit par ailleurs attraper le papillon avec son bec (ce qui 
semble évident mais qui rend le jeu beaucoup plus difficile). 

Le programme compte le temps que met l'oiseau à attraper sa proie 
et mémorise le meilleur temps réussi depuis le début de la partie. 

Si le temps dépasse 100 unités (baptisées abusivement secondes) 
c’est râté. 

Comme d'habitude, le jeu se réinitialise en pressant une touche 
quelconque du clavier (sauf break). 
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Structure du programme: 

Les lignes 60 et 110 dessinent le papillon dans ses deux positions 
possibles. 

Les lignes 70 et 120 dessinent l’oiseau avec le bec fermé et ouvert. 

Le sous-programme 230-250 lit le clavier et détermine le mouve¬ 
ment de l’oiseau. 

Le sous-programme 180-220 fait déplacer aléatoirement le 
papillon. 

Ce sous-programme est appelé deux fois lorsque le précédent est 
appelé une seule fois ce qui permet au papillon de se déplacer deux fois 
plus vite que l'oiseau. 

La ligne 260 mémorise le meilleur score. 


Caractères graphiques : ligne 60 graphie shift T, 

graphie shift Y 

ligne 110 graphie shift Y, graphie shift T 
lignes 70 et 120 graphie shift 6 



CHASSE RU PRPILLON 


1 LET T = 100 

10 LET C=NOT PI 

11 LET L=C 

20 LET 0=INT PI 
30 LET P=13 
4-0 LET U=C 
50 LET U-U 

60 PR INT RT U,U; 

61 IF 0100 THEN GOTO 1000 
70 PRINT RT O . P ; ** 

80 GOSUB 180 . 

90 IF INKEY $ < >““ THEN GOSUB 23 

100 CLS 

110 PRINT RT U.U;‘*V‘ 

120 PRINT RT O..P‘; “ = m /" 

130 IF INT (U+.5Ï) =P-SGN PI RND 
INT (U+.5)=0 THEN GOTO 260 
14-0 GOSUB 180 
150 CLS 

160 LET C =C + INT PI 
17© GOTO 60 

180 LET U=RBS (U+4-+RND-2) 

190 LET U=RBS (U+2+RND-SGN PI) 
200 IF RBS U>20 THEN LET U=20 
210 IF RBS U>8 THEN LET U=8 
220 RETURN 

230 LET P=P+(INKEY$ = “8-' RND P <2 
0 ) — ( INKEY $= " 5 *' RND P>L) 

24-0 LET 0=0+ CINKEY$ = -6“ RND O <8 
)-<INKEY$="7" RND 0>L) 

250 RETURN 

260 IF C <T THEN LET T=C 

261 PRINT RT 13.,L.;C.;” SECONDES. 
LE MEILLEUR TEMPS EST : ** ; T 

270 GOTO ICI© 

1000 PRINT RT 13.. L.; "RATE. . . ” 

1010 PRUSE 4E4. 

1011 CLS 
1020 GOTO 10 


V 
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4.13. BOWLIIMG 


Il ne manquait plus que le bowling pour compléter votre panoplie 
de jeux. 

La possibilité d’y jouer sur votre ZX81 vous est maintenant 
offerte, grâce à ce programme. 

Les quilles sont à gauche de l’écran. Notre boule est à droite. Vous 
dirigez sa position verticale avec les touches ” 6 ” et ” 7 ” et déclenchez le 
tir avec ”0”. 

En visant calmement il est facile, avec les 7 boules, de descendre 
toutes les quilles. Pour éviter cette solution trop facile et peu amusante, 
le programme chronomètre le temps de visée total (pour les 7 boules) et 
le limite à un maximum, au-delà duquel vous avez perdu. 

D’autre part, comme dans le jeu réel, lorsque la boule touche une 
quille, elle est déviée et peut donc (si vous avez de la chance ou des dons) 
faire tomber d’autre quilles. 

Pour réinitialiser le jeu, pressez une touche quelconque (sauf 
break). 


* 

* 

* * 

* * 
* * 

« 

* 


* 


* 

* * 

* 

* 

Structure du programme: 

La ligne 50 affiche le jeu de quilles. 

La ligne 60 positionne le nombre de boules à 7. 
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La ligne 100 lit le clavier et calcule la position verticale de la boule. 

La ligne 105 compte le temps E. 

La ligne 106 termine la partie si ce temps E est égal à H (110). 

La ligne 1020 détecte les quilles et simule les déviations aléatoires 
de la boule. 

Les lignes 1050 et 1060 affichent le chiffre de la boule en 
clignotant. 

Enfin la ligne 1070 décrémente d’un le nombre de boules et les 
lignes 1080 à 1100 réinitialisent le jeu. 


BOULING 

1 LET E =NOT PI 

2 LET H = 110 

20 FOR I=NOT PI TO 7 
30 PRINT HT 1,21;” " 

4-0 NEXT I 

50 PRINT RT NOT PI, MOT PI; 

f." * S",,”* * 

' é© LET X*=”7” 


70 LET R=NOT PI 
80 LET B=21 
90 PRINT RT R,B:** " 

100 LET R=R+tINKEY$=”6" RND R<7 
) - <INKEY*=”7” RND R >NOT PI) 

105 LET E=E+SGN PI 

106 GOTO H* CE=H) +H 

^110 IF INKEY$ = **0" THEN GOTO PI# 

120 PRINT RT R,B;X$ 

130 GOTO 90 
300 RUN 

1000 FOR B=21 TO NOT PI STEP -SG 
N PI 

1010 LET I=R 

1020 IF CHR$ tPEEK CSGN PI+23*R+ 
B+PEEK 16396+256*PEEK 16397))=''* 
J' THEN LET I=RBS CR-INT PI+6*RND 

1030 PRINT RT R,B;X$ 

104-0 PRINT RT R, B; " ** 

1050 LET R=I 
1060 NEXT B 

1070 LET X$=CHR$ (CODE X$-SGN PI 

1080 IF X $ < >"0" THEN GOTO 70 
1090 PRUSE H*H 
1100 CLS 
1110 RUN 
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5 

Réflexion 




5.1. TIC-TAC-TOE 


Ce célèbre jeu est adapté pour votre ZX 81, 1K. Il se joue nécessai¬ 
rement à deux, le but du jeu étant d’empêcher l’adversaire d’aligner ses 
pions sur une ligne, une colonne ou une diagonale d’un damier de 
3x3 cases. Chaque joueur pose une pièce à tour de rôle. 

Le programme comporte trois modes de jeu, vous pouvez en effet, 
grâce à lui, lutter contre un adversaire humain, contre votre ZX 81 ou 
regarder le ZX 81 lutter contre lui-même. 

L’utilisation du programme est simple. 

L’affichage vous présente la grille suivante : 

1 2 3 
5 6 7 
9 A B 

Il vous suffit de presser le chiffre ou la lettre de votre choix pour que 
votre marque s’inscrive sur cette grille. Les deux marques sont ”0” et 


A chaque coup les symboles ”0” et s’alternent 

automatiquement. 

Pour jouer à deux, il suffit que chacun des deux presse à son tour la 
case de son choix. 

Pour jouer contre la machine, il suffit de jouer son coup (le joueur 
peut commencer ou non) puis presser ”0” pour que le ZX 81 riposte. 
Enfin pour regarder votre ZX jouer tout seul, pressez ”0” à chaque 

fois. 


La touche ”.” réinitialise par ailleurs le jeu. 

Remarque : Le programme ne perd jamais. Mais enfin, comme on peut 
toujours rêver, essayez toujours de le battre!... Bon courage. 


123 

567 

9flB 


X03 
507 
O XX 
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Structure du programme: 

Les lignes 23 à 26 affichent la grille de jeu. 

Les lignes 28 à 31 scrutent le clavier. 

Les lignes 32 à 62 s’exécutent lorsque ”0” a été pressé. Elles testent 
les coups licites et choisissent le plus efficace. 

Les lignes 63 à 66 attendent le coup suivant en rebouclant sur la 
ligne 28 = CODE ”0”. 
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TIC-TRC-TOE 

22 LET R = 17 115 

23 CLS 

24- PRINT ''123" 

25 PRINT "SB?" 

26 PRINT "9RB" 

2? LET B=CODE *'X" 

26 SLOU 

29 LET C=CODE INKEY $ 

30 IF C=CODE THEN RUN 

31 IF CoCODE "0" THEN GOTO CO 
DE "Z“ 


32 FRST 

33 LET D=NOT B 
34- LET E=D 

35 FOR F=CODE "1*' TO CODE "B” 

36 IF PEEK (R+F) <>F THEN GOTO 
ODE "Y" 

-G =NOT B 

H =G 
I =G 

J=G TO CODE **+*' STEP IN 


3? LET 
36 LET 
39 LET 
4-0 FOR 
T PI 

4-1 LET 
4-2 LET 

43 LET 

44 FOR 

45 LET 


L=NOT B 
M = L 
N=L 

0=SGN B TO INT PI 

__P =PEEK CR+CODE "1235679 

RB15926R37B16B963”(O+O)> 

46 IF P=B THEN LET M=M+F 

47 IF P-113-B THEN LET N=N+F 

48 IF P=F THEN LET L=F 

49 NEXT O 

5© IF H = INT PliF OR N = INT PIïF 
THEN GOTO C 

51 IF NOT L OR M RND N THEN ©O 
TO CODE "S" 

52 IF M+N >F THEN LET I = F+H 

53 LET H=H+M 

54 LET G = G + N 

55 LET I=I+SGN B 

56 NEXT ü 

57 IF G >F OR H >F THEN LET 1 = 1 + 


PI 

58 IF G >F THEN LET E=E+B 

59 IF E=B+B RND I=PI+INT 
D D=I THEN LET C=CODE “2“ 

60 IF I>D THEN LET C=F 

61 IF I> D THEN LET D = I 

62 NEXT F 

63 IF PEEK (R+C) <>C THEN 
CODE "0" 

64 POKE R+C., B 

65 LET B = 113 —B 

66 GOTO CODE "0” 


PI RN 

GOTO 
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5.2. SIMON 


Avez-vous besoin de manger du phosphore? Vous le saurez en 
testant votre mémoire visuelle à l’aide de ce jeu bien connu. 

Ce programme affiche en effet une suite de caractères aléatoires qui 
s’allonge à chaque coup réussi. 

Vous devez taper correctement la suite que vous avez cru voir. 

Au début cela paraît très facile mais il est à peu près certain que 
vous craquerez bien vite, d’autant que la position d’affichage des carac¬ 
tères est aussi variable. 

En tous les cas, ne cassez pas votre ZX 81, en utilisant ce jeu, car il 
n’y est pour rien (ou presque)... 

Le programme retient le meilleur score. 


Structure du programme: 

La ligne 10 génère le premier caractère. 

Les lignes 40 à 80 génèrent la suite de caractères contenue dans 
A$. 

La ligne 90 attend et lit votre réponse. 

La ligne 100 compare votre réponse à la solution réelle. 

Les lignes 170 à 240 traitent par messages les différents cas de 
réponse. 

Enfin les lignes 105 à 120 augmentent la chaîne AS, en cas de 
bonne réponse. 

Remarque : Pour compliquer le jeu, l’intervalle de temps entre l’appari¬ 
tion des caractères est aléatoirement variable. Vous pouvez éviter cette 
complication en enlevant la ligne 60 et en la remplaçant par PAUSE 30. 
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SIMON 

1 LET H =NOT PI 

2 LET U=NÜT PI 

10 LET R $ =CHR$ INT (RND*8+3SÎ 
20 LET Y=NOT PI 
30 LET Y s» Y -i-SGN PI 
4-0 FOR X=SGN PI TO Y 

5© PR INT RT NOT PI.. CODE Rè tX) - 

- O IS; (V) 

60 PfiUSE 1 ?tRND-ï17 
70 CLS 
80 NEXT X 
90 INPUT Z $ 

100 IF R$<>Z$ THEN GOTO 17© 

105 LET U=U+SGN PI 

110 LET fi$=RitCHR* INT <RND*8+3 

B) 

120 GOTO 30 

170 PRINT "ERREUR.. C”“ETRIT “fi 

$ 

171 PRINT 

18© IF H <U TMEN GOTO 220 
19© PRINT "LE RECORD EST TOUJOU 
RS : " .; H 

191 PRINT 

192 PRINT '• UOUS N" "RUEZ FRIT O 
UE :U 

200 PRUSE 4-E4- 
204- CLS 
210 GOTO 2 
220 LET H =14 

230 PRINT "BRRUO., LE RECORD EST 
DESORMRIS : " ; U 
24-0 GOTO 200 


5.3. MASTER MIND 

Un nombre de quatre chiffres, tous compris entre 0 et 9 et tous 
distincts les uns des autres, est choisi par le ZX 81. Vous devez trouver 
ce nombre en proposant les combinaisons possibles et en analysant les 
réponses que vous fournit alors le ZX 81. Après chacun de vos essais, le 
ZX 81 vous donne le nombre de chiffres qui se trouvent effectivement 
dans le nombre mystérieux mais qui sont mal placés (colonne Y) et le 
nombre de chiffres bien placés (colonne X). Cela devrait vous permettre 
de trouver rapidement la solution... 

Lorsque vous aurez trouvé la bonne combinaison, le nombre de 
coups que vous avez mis pour y arriver sera affiché. 
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Pour recommencer une nouvelle partie, pressez une touche quel¬ 
conque du clavier. 


X Y 
1234- 1 .1 

5678 © 2 
S o 31 © 2 
7215 1 a 
3257 1 1 
174-5 © 4- 
7154- 4- © 
7ROUUE EN 


COUPS 


Structure du programme: 

Les lignes 50 à 100 déterminent le nombre secret en prenant garde 
à ce que les chiffres, qui le composent, soient tous distincts (lignes 70 à 
90). 

La ligne 130 vous permet d’introduire votre essai. 

Les lignes 320 à 350 testent si les chiffres contenus dans votre 
combinaison appartiennent au nombre secret et s’ils sont bien placés 
(lignes 330 et 350). 


MRSTER MIND 

5 LET S=NOT PI 
1© LET U =<4 
20 DIM ft$(U) 

30 DIM R*(UJ 
50 FOR I=SGN PI TO V 
60 LET fl* (I) =STR$ (INT (1©*RND 
î ) 

70 FOR J=SGN PI TO «J 
8© IF (IJ RMD d-i.il THE 

N GOTO 60 
G© NEXT U 
100 NEXT I 
110 CLS 

120 PRINT ** X Y" 

130 INPUT R$ 

135 LET S=5+SGN PI 

14-0 GOSUB 300 

15© PRINT R$; " ";X;" **;Y 

160 IF X : > U THEN GOTO 13© 

170 PRINT "TROUVE EN COUP 

«L «« 


76 



18© PRUSE 4-E4- 
19© Ct_S 
20© RUN 

30® LET X =NOT PI 

310 LET V=X 

320 FOR I=SSM PI TO U 

330 IF Rî (IJ =R$ fl) THEM GOTO 4.® 

0 

34-0 FOR vJ=SGN PI TO U 
350 IF JOl RND R$(I)=B${J) THE 
N GOTO 38© 

360 NEXT ü 
370 GOTO 4-10 
380 LET V =Y +SGN PI 
390 GOTO 4-1© 

4-00 LET X=X+SGN PI 
4-10 NEXT I 
4-2© RETURN 


5.4. BATAILLE NAVALE 

1234-56789 

1 



(extrait de "Le Lauréat") 
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Vous dirigez votre sous-marin corsaire en plein cœur de l’Atlan¬ 
tique à la recherche de proies possibles lorsque vous apprenez, par radio, 
la présence de quatre navires de surface dans votre secteur. Pour ne pas 
vous faire repérer, vous ne devez pas utiliser votre sonar ni remonter à 
l’immersion périscopique pour connaître la position exacte de ces 
bateaux. Vous disposez de cinquante torpilles pour tenter tout de même 
de détruire tous les navires ennemis. 

Pour lancer une torpille, entrez un nombre de deux chiffres, le 
premier chiffre étant la ligne, le second étant la colonne, puis pressez 
NEWLINE. Un ”0” apparaît à l’endroit où vous avez tiré si le coup est 
à l’eau. Dans le cas d’un coup au but, c’est un ”X” qui apparaît. 

Lorsque les quatre navires auront été détruits ou bien quand vous 
aurez épuisé toutes vos torpilles une nouvelle partie sera engagée 
automatiquement. 

Pour interrompre éventuellement le jeu, entrer FIN puis presser 
NEWLINE au lieu d’entrer les coordonnées d’un point de la grille. 

Structure du programme: 

Les lignes 35 à 50 placent de façon aléatoire les bateaux. 

Les lignes 60 à 90 dessinent la grille de jeu. 

La ligne 100 vous permet d’entrer les coordonnées de votre tir. 

La ligne 120 vérifie si vous avez encore ou non des torpilles. 

Les lignes 130 à 150 compare votre tir avec la position réelle des 
bateaux. 

La ligne 160 écrit ”0” si le coup est à l’eau. 

La ligne 200 écrit ”X” dans le cas d’un coup au but. 
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BRTR XLLE NRUflLE 


5 LET R=10 
10 LET S=NQT PI 
1S LET I=56N PI 
20 LET B = I + I 
25 LET M=R*fl/'B 
30 DIM PCR-B) 

35 FOR K=I TO R -B STEP B 
4-0 LET P (K) = INT I) * 

R + INT (RNDïtR-I)+1) 

4-5 LET P (K + Iî =P (K> + R 
50 NEXT K 
55 CLS 

60 PR INT " 1234-567S9" 

70 FOR K = I TO fl-I 
60 PRINT RT B *K,NOT PI;K 
90 NEXT K 
100 INPUT T 
110 LET M=M-I 

120 IF M=NOT PI T HE H GOTO 4-00 
130 FOR K=I TO R-B 
14.0 IF T=PCK) THEN GOTO R*R*B 
150 NEXT K 

160 PRINT RT INT (T /R)*Bj (T-INT 
(T/fl)*R)*6;"O" 

170 GOTO R*R 

200 PRINT RT INT (T/fiJi-B, (T-INT 
CT /fl) *R) *B; "X“ 

210 LET S=S+I 

220 IF S=R-B THEN GOTO R*R*fi 
230 GOTO R*R 


4-00 PRINT "PLUS DE TORPILLES" 
4-10 CLS 

1000 PRINT "FIN DE MISSION" 
1020 RUN 
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6 

16 K 
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6.1. BRIQUES 


Ce programme est une version très améliorée (mais très amélio¬ 
rable encore) du programme ”MUR” présenté antérieurement 



Cette copie de l’écran doit bien refléter les améliorations apportées 
grâce à la place mémoire supplémentaire. 

Vous avez le choix entre 11 niveaux de jeu. De ”0” pour les bons à 
”10” pour les moins bons. Ce sont toujours les touches ”5” et ”8” qui 
dirigent votre raquette. 

Enfin le nombre de balles disponibles est d'autant plus faible que le 
niveau de jeu est difficile. 

Le programme compte le nombre de balles et le score et la rapidité 
varie avec les niveaux. 

Structure du programme: 

Le cœur du jeu est constitué par la routine en langage machine des 
lignes 80-81. 

Le listing de cette routine, ainsi que son mode d’entrée seront expli¬ 
cités en annexe. 


81 




Le reste, lignes 82 à 9500, est en BASIC et assure principalement 
la gestion de l’affichage et des commentaires. 

Les lignes 84 à 90 sélectionnent le niveau de jeu. 

La ligne 190 appelle le programme en langage machine. 

Les lignes 193 à 195 lisent et affichent le score. 

Les lignes 1400 à 1670 affichent le terrain de jeu. 

Les lignes 2000 à 3070 assurent l’impression des divers commen¬ 
taires et réinitialisent le jeu. 

Graphiques utilisés: ligne 1410: graphie space X 32 
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briques 


30 rIm r| R /^Q?»S COPY BgSIN T 

<MŒ> m SRBgM-s^BsaKf-Æis 1 ®» 

RETURN STRB STOP RND7? FRST bO& 
UB TfiRNDS GOSUB ? LPRINT PROSE G 
HR* RND FOR T STuP RNu GusUs 7JgR 
ND FRST S GOSUB 7 LPRINT IF STOP 
RND FOR Ug3RND6g|P.ND77777 GOSUB ^ 


( RETURN 


}ND7- RCS 


COPY @ GOSUB 7yffRNDjSC£:UfiRND 
ïNDffl4. ,, U||RNDO MfSRNDYjBlNKEYSU 
'RB 7INKEYJO UJSRNDUMBRNDUl 



ND7 INPUT RND Y 
„;ND FRST E@RNDY 004- 
ND77SINKEY$ GOSUB 


INKEY $LEN 3 
B PRUSE RND., 
RUSE RND GOS 


_0CRY 

LPRINT B 
*> NEU *“RSN ® 


NDUBRND RETURN T 
ND GOSUB 7M0RND7 P 

„ww_ r ,.,w __B 7Ê3RND J 1 TRN TRN X 

XXXXXXXXXXXXXXXXXXX 

81 REM QQQQQ*"MI CLERR RCS U7C 
RRND GOSUB 79RNDLN 77LN Es£*7?|2RND 
9000000QQQQQOOOOOOOQOOOOQQOOO 

82 REM UERSION 11 (7-4-82 El) 

83 CLS 

84- PRINT RT 3.5 ; "CRSSE-BRIQUES 


86 PRINT ,,,,"FORCE (DE 0 POU 
R LES MEILLEURS R 10 POUR LES MO 
INS BONS )“ 

88 INPUT FO 

90 IF FO < 0 OR FO>10 THEN GOTO 
83 

92 LET SCM=110-5*FO 
94- LET NBM=10+FO 
96 POKE 1654-9.. 0 

98 POKE 164.17., (FO-INT (F0/3) *3 
)*127+1 
108 CLS 

110 GOSUB 1200 
120 GOSUB 14-00 

122 PRINT RT 0,2 ; "SCORE" ; TRB 14- 
.; "BRLLE NO " 

130 GOSUB 1800 

135 FOR 1 = 1 TO 64-534. 

160 FOR J = 1 TO FO/3 
170 NEXT U 

180 POKE 16507., CODE INKEY $ 

190 IF USR 16550=0 THEN NEXT I 
193 LET SC=PEEK 1654-9 
195 PRINT RT 0,9;SC 
200 POKE PEEK 16543*256+PEEK 16 
54-2,0 

210 POKE P0.PEEK 16535 
212 POKE 16543,INT (P0/256) 

214 POKE 16542,P0-256*PEEK 1654 
3 
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220 L.ET NB=NB+1 

33? IP SC > =SCM THEN GOTO 3000 
328 IF NB>NBM THEN GOTO 3000 
330 PRINT RT 0.S5.NB 
430 NEXT I 

1390 l_ET SC = 1+PEEK 16-396 <-356 tPEE 
K 1639? 

1310 l_ET NB=1 
1320 RETURN 
1400 FOR B =0 TO 1 
1410 PRINT 


1430 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

153© 

1540 

1550 

156© 

1570 

1580 

1590 

1600 

1 

1610 

1620 

1630 

15 

1640 

1650 

1660 

47 

1670 

1800 

1810 

1630 

1830 

1840 

3 

1850 

3008 

3010 

3000 

3030 


NEXT B 
FOR R=2 TO 30 
POKE SC+33*R.PEEK 16532 
POKE SC +33 *R +31 . PEEK 16533 
NEXT R 

FOR R =0 TO 31 

POKE SC+aii 33 +R,PEEK. 16534 
NEXT R 

FOR R =4 TO 2? 

POKE SC+21t33+R,PEEK 16536 

NEXT R 

FOR B =3 TO 6 

FOR R = 1 TO 3© 

POKE SC +B *-33 +R.. PEEK 16530 
NEXT R 
NEXT B 

L.ET PR=SC+6?4 

POKE 1654 1 j INT (PRx2S6> 

POKE 16540.PR-256 tPEEK 1654 


L_ET PRI=SC+661 

POKE 16545,INT (PR1x256) 

POKE 16544.. PRI -256 *PEEK 


165 


LET PRF=5Ct66S 

POKE 1654?.INT (PfiF/256) 

POKE 16546,PRF-256 ïPEEK 165 

RETURN 

L.ET P0=5C+213 
POKE P0.PEEK 16535 
POKE 16539.. © 

POKE 16543,INT (P0/256) 

POKE 16542 , P0-256fPEEK 1654 


10;"PEROU" 


1©.; "S_ 

0;"UOULE2-VOUS 


R O NE 


RETURN 
PR INT RT 10 
GOTO 3030 
PR INT RT 10 
PR INT RT 19 
REFRIRE UNE PfiRTIE?" 

304© INPUT R $ 

305© IF R$ 11) = "0’* THEN GOTO 
3060 PRINT .."R BIENTOT" 
3070 STOP 

9100 FOR 1=1685© TO 16872 
9110 PRINT I., PEEK I 
3200 NEXT I 
3300 STOP 
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6.2. ANNEXE CHARGEMENT ET LISTING 
HEXADÉCIMAL 

Le processus de chargement est identique à celui employé pour le 
jeu 1K "ENVAHISSEURS”. 

Taper 10 REM ' BRIQUES'” 

80 REM XXX ... 310 fois ... XX 

81 REM QQQ ... 60 fois ... QQ 

Puis reprenez le chargeur hexa-décimal du jeu 
” ENVAHISSEURS ”. 

Changez 100 en : 

100 FOR N 16529 TO 16838, 

faire RUN et entrer les octets suivants: 


3? «38 QQ 08 80 03 34- 04- SR 21 FF 

RS AC CT 4R ST 4C R2 A-C Si SI 2 

R 9C 4-0 E5 3E S© TT 23 TT 23 TT 

El 3R TB A-C FE 21 C2 6 F 40 26 26 

C3 CS 40 FE 24 C2 ES 4© 23 23 £ 

5 ED 5B RS 4© RT ED 52 El F2 D 6 

E3 4© ED 56 RS 40 E5 RT 
ED 52 El FR E3 4© EB 5R 92 4© £ 

2 9C 40 TT 23 TT 23 TT ED 46 2© 

40 00 00 10 FE 2R 9E 40 3R qr 4.0 

5F 16 00 CB TB 2© M 16 FF E 

4.0 BE 28 0C 3R 96 4.0 
BE 28 06 3R 99 40 BE 20 0B 3R 9 © 

o 4 '?c* a £pr 0 ?^ 3 ? r .' 3B 4 ‘® C3 SB 41 3R R 
_ c f 41 36 ©0 3R R5 40 

4© 2F 32 9B 4© 
40 CB TF CR SB 41 ED 44 3 

40 C 3 8 B 41 3R 94 40 BE C2 

** 40 44 4T 0T SE 43 

44 3 ® 32 40 C3 EE 4 

® 0© 3E 01 32 A4 40 3E ©4 BE 

28 3T 3E O© 32 R4 4 g £5 ££} çjf 

3E 34 BE 20 02 36 ©0 El 22 9E 4 

® TT C3 RR 41 ED 5F E 6 03 CR SB 

_ CB _ if ~ 32 SR 40 3ft 9B 4 © FE 00 
4.® 3fi 9R 4© ED 44 32 9R 4 

?* C3 Ff 4 OE D AB R4 4© ©0 ©6 ©© 

L 1 ~ C9 3D 3C> 30 3D 30 3D 3D 3D 

3D 3D 3D 30 30 30 30 30 30 30 3 
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Puis changez 100 par: 

100 FOR N = 16845 TO 16901 
faites RUN et tapez : 


3e 36 36 36 36 ©6 32 ©S FD CB 3B 

4-6 26 F9 ED 4-B 25 <4© CD 4-B 0F C 

D BD ©7 4-S C-3 &e 4-© 36 36 36 35 
36 36 36 36 36 36 36 36 36 36 36 

36 36 36 36 36 36 36 36 36 36 3 

6 36 36 36 


Remarque : Faire attention aux sauts de lignes dans les listes d’octets 
précédents: un octet est toujours écrit avec deux "chiffres” (0 à F). 
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6.3. CUBE 



Tout amateur de jeux s’est un jour ou l’autre torturé les méninges 
par la faute du fameux cube de Rubik. Cette torture est désormais ter¬ 
minée car le programme qui suit est capable de refaire le cube quelque 
soit le désordre dans lequel vous avez pu vous appliquer à le mettre! 

Remarque préliminaire: 

Tous les cubes existant sur le marché ne sont, hélas, pas identiques : 
les centres des faces de même couleur peuvent en effet avoir, d’un cube à 
l’autre des positions relatives différentes. 

Pour faire un programme relativement simple, il a donc fallu choi¬ 
sir une normalisation. 

La norme choisie est la configuration suivante: 


JAUNE (J) J 

BLEU (B) ROUGE (R) VERT (V) B R V 

BLANC(W) W 

ORANGE (O) O 

Si par malchance votre cube n’est pas conforme à cette disposition, 
il vous suffit par exemple d’étiquetter les faces avec les symboles J, B, R, 
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W, V, O correctement placés, ou de décoller les pastilles colorées et de 
les permutter de façon adéquate 


6.3.1. Fonctionnement du programme 

Le fonctionnement comporte deux phases différentes l’entrée du 
cube, la résulution du cube. 

a) Entrée du cube: 

Après avoir fait RUN et pressé ”D” un éclaté représentant cinq 
faces du cube apparaît sur l’écran. 


URR 

RRU 

RBJ 

++++UJ+++ 

+J++BO+U+ 

+++?UU+++ 

+ + + 

+o + 

+ + + 

TENEZ LE CUBE RUEC LE CENTRE BLE 
U UERS UOUS, ET LE CENTRE ROUGE 
UERS LE HRUT 


Vous pouvez alors décrire la face centrale en tapant le code des 
couleurs correspondant au point d’interrogation clignotant. 

Si vous faites une erreur vous pouvez reculer en prenant ”0” et cor¬ 
riger votre erreur en retapant la bonne couleur. 

Lorsqu’une face est remplie le programme vous propose automati¬ 
quement la suivante. Lorsque les six faces sont entrées, le message 
"ATTENDEZ...” s’affiche et le ZX81 commence à "réfléchir”. 

Puis il vous annonce automatiquement les mouvements à effectuer. 

b) Remise en ordre du cube 

Le ZX 81 vous indique une rotation à effectuer puis attend NEW- 
LINE pour donner le coup suivant. 
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Pour simplifier les manipulations, chaque coup donné par le ZX 81 
correspond à une rotation autour d’un centre de 90° dans le sens des 
aiguilles d’une montre ou dans le sens inverse. Il suffit donc pour définir 
complètement un coup de donner une couleur d’un centre et un sens de 
rotation. 

Le programme indiquera par exemple: ”tourner la face de centre 
bleu dans le sens des aiguilles d’une montre”. 

Si vous faites une erreur de manipulation, le programme ne peut 
évidemment pas la détecter, mais si vous avez des doutes, il vous est pos¬ 
sible de contrôler votre position à chaque instant en pressant ”H”. S’il y 
a une erreur vous pouvez alors réentrer le cube. 

Lorsque le cube est fait, le ZX 81 vous l’indique et, sauf erreur de 
manipulation de votre part, le cube est également fait dans vos mains. 

Le programme fait le cube en moyenne en 90 coups. (Cq qui est 
relativement bien par rapport à bon nombre de joueurs humains, y com¬ 
pris l’auteur!). 

Enfin, si vous rentrez une configuration impossible du cube, le pro¬ 
gramme peut se bloquer indéfiniment (faire alors BREAK) ou faire un 
STOP. 


6.3.2. Méthode utilisée 

De nombreuses méthodes sont possibles pour résoudre le problème 
du cube. La méthode utilisée ici n’est pas la plus rapide mais à le mérite 
d’être relativement simple à programmer. 

Elle consiste à faire d'abord la face du haut avec les coins supé¬ 
rieurs bien placés (Le programme commence toujours par la face rouge). 

Puis la couronne du milieu est correctement placée. Enfin, ce qui 
est le plus délicat, le programme place les coins inférieurs et termine le 
cube. 
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6.3.3. Codage du cube 

Les six couleurs sont représentées par une variable initialisée à leur 
valeur : 

Rouge R = 1 Blanc W= 3 Jaune J = 5 

Bleu B = 2 Vert V = 4 Oragne 0 = 6 

Les faces étant représentées par la couleur de leur case centrale, le 
cube est codé à l'aide de deux tableaux à deux dimensions de six élé¬ 
ments: C (a, (3) et F (a, P). 

Le tableau C contient les coins le tableau F les autres cases (hormis 
les centres). 

a représente la face considérée. 

P représente: 

— la face voisine pour les éléments de F, 

— la face immédiatement à gauche pour ceux de C. 

Structure du programme: 

Les lignes 1 à 410 initialisent le programme. 

Les lignes 520 à 930 assurent l’entrée de la position. 
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Les routines des lignes 1000 à 1140 permettent l’affichage du cube 
(éclaté). 

Les lignes 1300 à 1500 vérifient la position actuelle. 

Les lignes 2000 à 2290 font l’interface machine-homme en décri¬ 
vant les coups à exécuter et assurent le réarrangement correct des ta¬ 
bleaux de codage du cube après chaque coup. 

L’application réelle de la formule de résulution commence en 2400. 
Les lignes 2400 à 2500 initialisent les variables. 

Les lignes 2500 à 2600 placent les coins supérieurs et font la face 
rouge. Les lignes 2640 à 2850 contrôlent ce qui vient d’être fait. 

Le programme place ensuite les coins de la couronne centrale aux 
lignes 3370 à 3680. 

A partir de cette partie du programme, la complexité des transfor¬ 
mations (qui préservent ce qui a été déjà réalisé) oblige à utiliser des for¬ 
mules assez longues. Elles sont programmées sous forme de chaînes S$, 
R$, ..., qui sont ensuite découpées en coups et envoyées à la routine d’in¬ 
terface 2000. 

Les coins inférieurs et la face orange sont donc faites en dernier aux 
lignes 4270 à 5150. 

Enfin les lignes 8000 à 8090 annoncent la fin du calcul et réinitiali¬ 
sent le programme. 

Remarques: 

— Ce programme utilise abondamment la possibilité du basic 
SINCLAIR d'appliquer VAL à des variables. 

— Certaines variables ont un sens mnémonique et sont très uti¬ 
lisées en voici la liste : 


FA 

face avant 

CA 

couleur avant 

FG 

face gauche 

CG 

couleur gauche 

FR 

face arrière 

CR 

couleur arrière 

FD 

face droite 

CD 

couleur droite 

FS 

face supérieure 

CS 

couleur supérieure 

Fl 

face inférieure 

Cl 

couleur inférieure 
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COUPS compte le nombre de coups exécutés. 


SUP 

côté supérieur 

INF 

côté inférieur 

DRO 

côté droit 

GCH 

côté gauche 

ARR 

côté arrière 


La ligne 1470 est peu lisible tapez: 

1470 IF H$ = CHR$ 118 THEN RETURN 


CUBE 

1 REM RUBÏK"“S CUBE 

10 SLOU 

11 RRND 
15 CLS 

20 PRINT Tf~B 10,' "RUBIK’ ,,, 5 CUBE 


21 PRINT 

280 PRINT '* RPRES R’JOIR EFFECTUE 

LA ROT RT ION ” 

290 PRINT ”RTTENDEZ QUE LE MESS 
AGE *’ "PRESSEZNEU LINE"’’ RPPRRRI5 
SE” 

300 PRINT "PRESSEZ RLORS NEU LI 
NE POUR RUOIR LE PROCHRIN CD 

UP" 

310 PRINT "GU PRESSEZ ••••H"" POU 
R UOIR UOTRE POSITION RCTUELLE” 

34-0 PRINT " " 

350 PRINT "SOUUENEZ UOU5 OUE LE 
S FACES" 

360 PRINT "SONT REFERENCEES PRR 

L""INITIALE DE LR COULEUR DE LE 


UR CENTRE : " 

4-02 PRINT 

405 PRINT "BLANC=U UERT=U ROU 

G>EE —R 11 

*^4-07 PRINT "URUNE=J BLEU-B ORR 


NGE=0" 

4.0© PRINT 

4-09 PRINT "APPUYEZ SUR " ”D" " PO 
UR COMMENCER” 

4-10 IF INKEY $ < > “D" THEN GOTO 41 


520 REM ENTREE DE LR POSITION 
530 DIM F(6.6) 

540 DIM 0(6, S) 

542 FOR 1=1 TO 6 

544 FOR U=1 TO 6 

545 LET F CI,U) =7 

546 LET C(I,J )-7 
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54-7 NEXT U 
54-3 NEXT I 

5S0 LET C$="RBUUUO+" 
R = 1 
B =2 
U =3 
U =4- 
J=5 
0=6 
T=1 


TO 6 


1000 

"TENEZ LE CUBE RUEC L 


ET LE CE 


560 LET 
570 LET 
580 LET 
590 LET 
600 LET 
610 LET 
620 FOR 
625 CLS 
630 GOSUB 
64-0 PRINT 
650 PRINT 
E CENTRE 

660 LET COULEUR=T 
670 GOSUB 1150 
680 PRINT " UERS UOU3. 

MTRE 

690 LET COULEUR=SUP 

700 GOSUB 1150 

710 PRINT " UERS LE HAUT" 

770 FOR C=1 TO 8 

772 LET E=URL ”334-5554-3" <C) 

774- LET F =UflL "45554333" (C) 

780 LET SI=URL "SUP SUP DRO DRO 
INF INF GCH GCH" (C*4-3 TO C*4-l 
790 PRINT RT E^F;"7" 

795 LET X $ = INKEY $ 

797 IF X$<>“" THEN GOTO 815 
800 PRINT RT E.F.;" " 

802 LET X$=INKÈV$ 

805 IF X$="" THEN GOTO 790 
820 IF X$="R" OR Xî=“B u OR X$=" 
W" OR X$=”U" OR Xt="U" OR X$="0" 
THEN GOTO 860 

830 IF X*<>"0" OR C=1 THEN GOTO 
300 

835 PRINT RT E..F.;" " 

84-0 LET C=C-1 
84-5 GOTO 772 

860 PRINT RT E.. F.; C $ C URL X*) 

370 IF C/2 0INT ( C/2 ) THEN GOTO 
90© 

880 LET C (T , SI ) =U AL XJf 

890 GOTO 910 

900 LET F(T,SI)=URL X$f 

910 NEXT C 

920 NEXT T 

930 CLS 

940 PRINT "RTTENBEZ..." 

950 GOTO 2400 

1000 REM DESSIN DU CUBE 

1001 GOSUB 1005 

1002 GOTO 1050 
1005 LET SUP=UAL 
1010 LET DRO =URL 
1020 LET GCH=URL 
1030 LET INF =UAL 
1040 LET ARR=UAL 
1045 RETURN 


"URRRRB"(T) 
"UUUUBU”(T) 
"JUBUUU"(T) 
"BOOOOU"(T) 
"OUUBUR"(T) 
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105© PRINT " "j C$(CCSUP ,GCH)); 
C* (F (SUP,,flRR) ) ; Cÿ CC (5UP,RRR) ) 
1060 PRINT ” C$5 (F(5UP, GCH) ) ; 

C$(SUP).;C$(F(SUP,DRO)5 
1070 PRINT " ";C$(C«5UP,T) ».;C$ 

(F(SUP,T)i;C$tC(SUP,DRO)) 

1080 PRINT C$î (C (GCH., RRR) ) .; C$s (F (G 
CH.. SUP) ) .; C$5 (C (GCH..5UP) > ; C$ (C (T .G 
CH) ) ; C$> (F (T . SUP) ) C$5 (C (T . SUR) ) ; C 

$ (C (DRO..T) ) C$ (F (DRO .SUP) ) ; C$5 (C ( 
DRO., SUP)) 

1030 PRINT C$5 (F (GCH ,RRR) ) ; C$ (GCH 
) .; C$5 (F (GCH..T) ) .; D$ (F (T . GCH) ) ; C$ (T 
> ; C$5 (F (T.. DRO) ) ; C$5 (F (DRO .T) ) '; C$5 (D 
RO) ; C$5 CF (DRO., RRR) ) 

1100 PRINT C$ (C (GCH, INF) ) ; C$5 (F (G 
CH., INF) ) ; C$ (C (GCH., T) ) ;Cf (C(T. INF 
) ) ; C$ (F (T., INF) ) ; c$i (C (T . DRO) ) ; C$5 î 
C (DRO.. INF) ) ; C$5 (F (DRO.. INF) ) ; C$5 (C C 
DRO > RRR) ) 

1110 PRINT " "JC*(C(INF.GCH)); 
C $ (F (INF.. T) ) ; C$ (C (INF ,T) ) 

1120 PRINT " C*(F(INF.GCH) ) ; 

C$5 (INF) .; C$5 (F (INF., DRO) ) 

113© PRINT " •*.; Cÿ (C (INF ,RRR) ) ; 

C$ (F (INF., RRR) ) ; C$ (C (INF.. DRO) ) 
114-0 RETURN 

1150 REH AFFICHAGE COULEUR 
1155 PRINT "ROUGE" RND COULEUR=l 
.; "BLEU" RND COULEUR =2.; "BLRNC" RN 
D COULEUR =3.; "VERT" RND COULEUR=A 
"JAUNE" RND COULEUR=5: "ORONGE" 
RND COULEUR=6; 

1160 RETURN 

1300 REM UERIFICRTION POSITION 
1385 CLS 

1310 PRINT "EXAMEN DU CUBE:-" 
132© PRINT 

1330 PRINT "TAPEZ LR LETTRE REPR 
ESENTRNT " 

1331 PRINT "LR COULEUR DE LR FOC 
E R EXAMINER " 

1332 PRINT ” (""U""POUR BLANC) " 
134-0 PRINT "SI VOUS ETES SRTISFft 
ITS DE LR POSITION" 

134-3 PRINT "PRESSEZ " "NEU-LINE" " 
POUR CONTINUER" 

134-5 PRINT "OU PRESSEZ ""O" "SI U 
OUS UOULEZ CORRIGER VOTRE ENTREE 

14-50 LET H$i = INKEV$ 

14-60 IF H$5 = " " THEN GOTO 14-50 

14-70 IF H$5=CHR$ 11 A. .THEN_BFTUBN 

14-80 IF H$i = "©" THEN RUN 

14-30 IF H$ < > "R" RND H$5<>"S" RND 

MJo"U" RND RND 

RND H $ < > " O " THEN GOTO 14-50 

1500 LET T=URL H $5 

1510 CLS 
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152© G O S U B 1000 
1530 PP. INT 
154-0 LET COULEUR =T 
1550 GOSUB 11SO 

1560 PRINT "LE COTE OUI UOUS FRI 
T FACE. "; 

1570 LÈT COULEUR=5UP 
1580 GOSUB 1150 
1585 PRINT 

1500 PRINT ”Lfi FACE DIRIGEE UERS 
LE HRUT.” 

1600 GOTO 14-50 

2000 REM CHOIX DU COUP 

2002 IF X$<>"" THEN GOTO 2010 

2004- LET X* = "" 

2006 RETURN 

2020 LET SI=UAL X$(l TO 2) 

2075 LET X*=X$<4) 

2085 IF SI< > F S THEN GOTO 2120 
2090 IF X $; = "Fi" THEN GOTO 2110 

2100 LET UU=FR 

2101 LET Ffi=FG 

2102 LET FG=FR 

2103 LET FR =FD 
2104- LET FD =UU 
2105 GOTO 2120 

2110 LET UU =FO 

2111 LET FR=FD 

2112 LET FD =FR 

2113 LET FR =FG 
2114- LET FGssUU 

2120 LET COUP5=COUP5+l 

2121 IF COUPS=l THEN GOTO 2160 

2122 PRINT RT 21.. 0.; "PRESSEZ ""NE 

1J-LINE. 

2130 LET H*=INKEY$ 

214-0 IF H$ < > "H" RND H$OCHR$ 118 
THEN GOTO 2130 

2150 IF H$="H" THEN GOSUB 1300 

2160 SCROLL 

2165 PRINT TRS 31; 

2170 SCROLL 

2175 PRINT TRB 31;RT 19.0;"COUP" 
COUPS.; " . TOURNEZ' LR FACE' DE CEN 
TRE " ; 

2180 LET COULEUR=SI 
2185 GOSUB 1150 

2195 SCROLL 

2196 SCROLL 

2200 IF X$="A" THEN GOTO 2215 
2205 PRINT TRB 31;RT 19.0."DRNS 
LE SENS DES AIGUILLES D""ÜNE MON 
TRE."; 

2210 GOTO 2218 

2215 PRINT TRB 31.1RT 19.0; "DRNS 
LE SENS INUERSE DES RIGÙILlES D" 
"UNE MONTRE"; 

2218 LET T =51 

2219 GOSUB 1005 
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2220 

2221 

2222 

2223 

2224- 

2225 

2226 
2227 
2226 

2229 

2230 

2231 

2232 

2233 
2234- 

2235 

2236 

2237 

2238 

2239 
224-0 
224-1 
224-2 
224-3 
224-4- 
224-5 
224-6 

2250 

2251 

2252 

2253 
2254- 

2255 

2256 

2257 

2258 

2259 
226© 
2261 
2262 
2263 
2264- 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 
2274- 
2280 
2290 
24-00 
24-10 
24-30 
24-50 
24-60 


IF THEN GOTO 2250 

LET UU=F(T, SUP) 

LET F(T,SUP) =F (T.GCH) 

LET F(T,GCH) =F (T,INF) 

LET F (T.. INF) =F (T.. DRO) 

LET F (T .. DRO) =UU 
LET UU=F(5UP,T) 

LET F(SÜP.T)=F(GCH.T) 

LET F(GCH.T) =F CINF .T) 

LET F ( INF..T) =F (DRO'.Ti 
LET F(DRO,T)=UU 
LET IJU=C(T,5UP) 

LET C(T,SUP) =C (T.GCH) 

LET C(T,GCH)=C(T,INF) 

LET C (T,INF) =CCT,DRO) 

LET C(T.DRO)=UU 
LET UU=C(5ÜP,T) 

LET C(SUP.T)=C(GCH.T) 

LET C(GCH,T) =C ( INF.T) 

LET C ( INF,T) =C (DRO.T) 

LET C (DRO,T) =UU 
LET UU=C(SUP,DRO) 

LET C(SUP,DRO) =C (GCH.SUP) 
LET C(GCH.SUP)=C(INF,GCH) 
LET C(INF,GCH) =C (DRO .INF) 
LET C (DRO, INF) =UU 
GOTO 2280 
LET UU=F(T,SUP) 

LET F(T,SUP)=F(T,DRO) 

LET F(T,DRO) =F (T,INF) 

LET F(T,INF) =F (T.GCH) 

LET F (T,GCH) =UU 
LET UU=F (SUP .T) 

LET F(SUP,T) =F (DRO.T) 

LET F (DRO,T) =F ( INF .T) 

LET F(INF .T) =F (GCH,T) 

LET F(GCH,T) =U'J 
LET UU=C(T..5UP:' 

LET C(T,SUP) =C (T.DRO) 

LET C(T,DRO)=C(T,INF) 

LET C (T . INF) =C (T . GCH) 

LET C(T.GCH)=UU 
LET UU=Ô(SUP,T) 

LET C(SUP,T) =C (DRO,T) 

LET C (DRO,T) =C ( INF.T) 

LET C(INF,T) =C (GCH.T) 

LET C(GCH,T)=UU 
LET UU=C(SUP,DRO) 

LET C (SUP.DRO) =C (DRO,INF) 
LET C (DRO,INF) =C ( INF,GCH) 
LET C(INF,GCH) =C (GCH,SUP) 
LET C(GCH,SUP)=UU 
LET X$=“" 

RETURN 
REM FORMULE 
LET COUPS=0 
LET = 

LET FS = 1 
LET CS = 1 
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24-70 LET FI =6 

24-80 LET CI =6 

24-90 LET FR =2 

2500 LET CR=2 

2505 REM COINS SUPERIEURS 

2510 FOR 1=2 TO 5 

2520 IF F ( FS ^ I) =CS THEN GOTO 255 
0 

2530 NEXT I 
2540 GOTO 2578 
2550 LET Ffl=I 
25S0 LET Cfl=FfFfl,F5) 

2570 LET DE =0 


2580 GOSUB 2589 

2581 GOTO 2648 

2589 LET CG=URL " 5234 ”(CR) 

2590 LET FG=URL ” 5234 “(FR) 

2600 LET CD=URL " 3452 “(CR) 

2610 LET FD=URL " 3452 “(FR) 

2620 LET CR =URL ” 4523 ** (CR) 

2630 LET FR=URL " 4523 “(FR) 

2635 RETURN 

2640 IF F ( FR FS ) =CR RND F (FS,FR) 
=CS THEN GOTO 2860 

2650 IF F(FR,F5)=CS RND F(FS,FR) 
=CR OR F(FR,FS)=CR RND F(FS.^R)a 
CS THEN LET X$="FR R" 

2660 GOSUB 2000 


2670 IF F(FR ,FI 
=Cfl OR F (FR FI) 
CR OR F(FR,FI)= 
S THEN LET X$=" 
2680 IF F(FR,FD 
=CS THEN LET X$ 
2685 IF F ( FR FG 
=CS THEN LET Xÿ 
2690 IF F(FD,FS 
=CR OR F ( FD.. FS ) 
CS THEN LET X$= 
2695 IF F(FR/FS 
=CR THEN LET X$ 


)=CS RND F(FI,FB) 
=CS RND F (FI.FR) = 
CR RND F (FI.FR) =C 
FI R" 

)=CR RND F(FD,FR) 
—"FS R” 

)=Cfl RND F(FG.FR) 
—"FS C" 

)=CS RND F(FS.FD) 
=CR RND F(FS.FD)= 
"FD R" 

) =CS RND F (FS, FR.) 
="FR C” 


2708 IF F(FG,FS)=C5 RND F(FS.FG) 
=CR OR F(FG,FS)=Cfl RND F(FS.FG)= 
CS THEN LET X$ = *’FG C" 


2710 GOSUB 2000 


2720 IF F(FI,FD)=CS RND F(FD.FI) 
=CR THEN LET X$="FI R“ 

2730 IF F(FI,FG)=CS RND F(FG.FI) 
=CR THEN LET X$="FÏ C" 

2740 IF F(FI,FD)=Cfi RND F(FD.FI) 
=CS THEN LET X$="FD C" 

2750 IF F(FI,FG)=CR RND F(FG.FX) 
=CS THEN LET X$ = "FG R" 

2760 IF F(FR,FD)=C5 RND F(FD.FR) 
=CR OR F(FR..FD)=CS RND F (FD . FR) = 
C THEN LET X$="FS R" 

2770 IF F(FR,FG)=CS RND F(FG.FR) 
=CR OR F(FR.,FG)=CS RND F(FG.FR) = 
CR THEN LET X$="FS C" 

2780 GOSUB 2088 
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3790 XF FtFfl.,FI) =Cfl AND F (FI.FA) 
=CS THEN LET X$="FA A" 

2800 GOSUB 2000 

281© XF F(FR , FD)=CR AND F(FD,FR) 
=CS THEN LET X5t = "FR A" 

2820 IF F ( FR , FG) =Cfl RND F(FG,FA) 
-CS THEN LET X$="FA C" 

2830 GOSUB 2000 

284-0 IF F (FR , FG) =C5 RND F ( FG , FR ) 
=CG THEN LET X$="FG C" 

284-2 GOSUB 2800 

284-5 IF F(FR,FD)=CS RND F(FD.FR) 
=CD THEN LET X$="FD A" 

2850 GOSUB 2000 

2360 LET DE=DE+1 

2870 IF DE =4- THEN GOTO 2910 

2880 LET CA=UAL ** 34-52 “ (CR) 

2890 LET FA=UAL " 34-52 “ (FR) 

2895 GOSUB 2589 

2900 GOTO 2580 

2910 REM COINS SUPERIEURS 

2915 LET Y$ = "" 

2920 LET OC=0 

2930 IF CA=UAL " 4-523 " (FR) THEN 
LET X$=“F5 C" 

294-0 GOSUS 208© 

2950 IF CA=URL " 34-52 " (FR) THEN 
I FT y ±-"pc d*‘ 

2960 IF CA=UAL " 5234- ” (FR) THEN 

I PT y * = "ce •• 

2970 GOSUB 200© 

2980 IF C(FR ; F5)=C5 RND C(FD,FR) 
=CR THEN LET Y$="FD R FI C FD C" 
2990 IF C(FA.FS)=Cfl RND C(F5,FD) 
=CS THEN GOTO 3320 

3000 IF C(FS,FD)=CR RND C(FD,FR) 
=CS THEN LET Y$ = "FR C FI R FR R'* 
3010 IF C(FD^FS)=C5 RND C(FR.FD) 
=CR THEN LET Y$="FD C FI R FÏ R 
FD R" 

3020 IF C ( FS .. FR ) =C5 RND C(FD.FS) 
=Cfl THEN LET Y$="FR R FI fl FR C” 
3830 IF C (FS..FR) =CA RND C(FR,FD? 
=CS THEN LET Y$="FA C FR R FI R 
FR R FR C” 

384-0 IF C(FG,FR)=Cfi RND C1FR.F5) 
=CS THEN LET Y$=”FR C FD R FI C 
FI C FD C FR R” 

3050 IF C ( FS .. FG ) =CS RND C(FR.FS) 
=CR THEN LET Y$="FG R FD R FI C 
FI C FD C FG C” 

3060 IF C(FS,FG)=CA RND C(FG.FR) 
=CS THEN LET Y$ = "FG R FR C FÏ C- 
FI C FR R FG C“ 

3070 IF C(FG , FS)=CS RND C(FR.FG) 
=CA THEN LET Y$="FD R FG C FI C 
FG R FD C" 

3080 IF C (FS.. FR) =CS RND C ( FG.. FS' 
=*Ffl THEN LET Y$="FG C FI C FG R” 
3090 IF C (FR.îFG) =C5 RND C(FS..FR> 
THEN LET Y$="FA R FI C FI C 
FR C" 
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3100 GOSUB 3120 
3110 GOTO 3170 
3120 FOR K = 1 TO LEN 
3130 LET X$=Y$CK TO 
314-0 GOSUB 2000 
3150 UEXT K 
3155 LET Y $ = "" 

3160 RETURN 
3170 1F CCFI,FD)=CS 
=Cfl THEN LET X$="FI 
3180 IF C(FI,FG)=CS 
=Cfi THEN LET X$="FI 
3190 GOSUB 2000 
3200 IF C ( FI,FR)=CS 
=CR THEN LET Y$="FR 
3210 IF C(FI.;FA)=CS 
=CR THEN LET Y$= n FD 
3220 GOSUB 3120 
3230 IF C(FR,FD)=CS 
=CR THEN LET Y$= n FR 
324-0 IF C(FD,FI) =CS 
=CR THEN LET Y$="FD 
3250 IF C(FDyFRJ=CS 
=Cfl THEN LET Yÿ="FI 
FR fl" 


Y $ STEP 5 
K+3) 


RND C(FR.FI) 
C" 

RND CtFfl.FI) 
R" 

RND C(FG,FIS 
C FI C FR R” 
RND C(FD,FI3 
R FI C FD C" 

RND C(FI ; FR3 
C FI C FR R" 
RND C(Ffl,FD) 
R FI R FD C” 
RND C (FI, FD-> 
R FR C FI C 


3260 IF C (FR,, FI) =C5 
=CR THEN LET Y$="FR 
3270 IF ClFR,FG)=CS 
=CR THEN LET Y$="FD 
FD C" 

3280 IF C<FG,FI)=C5 
=CR THEN LET Y$="Ffi 

pp p 

3290 IF C(FG,Ffl)=CS 
=CR THEN LET Yÿ="FD 
3300 IF C (FR..FI) =CS 
=CR THEN LET Y$="FI 
FD C" 

3310 GOSUB 3120 
3320 LET OC=OC+l 
3330 IF OC =4- THEN GOTO 3370 
334-0 LET CA=UAL " 34-52 “ (CR) 

3350 LET FR=URL " 3452 “(FR) 

3355 GOSUB 2589 
3360 GOTO 2980 
3370 REM COTES DU MILIEU 
3380 LET S $ = "FR C FI R FR R FI R 
FD fl FI C FD C" 

3390 LET M$="FR R FI C FR C FI C 
FG C FI R FG R” 

3400 LET NH=(F(U,U)=W RND F(U.U) 
=U)+(F(U,J)=U RND F(U.U)=U)+(F(I 
.. B) =U RND F (B., J) =B) + (F (B .U) =B RN 
D F (U.. B) =U) 

3405 IF NH=4 THEN GOTO 3690 
3410 FOR K=2 TO 5 

3420 IF F(FI,K) <>CI RND F(K.FI)< 
>CI THEN GOTO 3450 
3430 NEXT K 


RND C' (FD., FR) 
C FI R FR A" 
RND C(FI,FR) 
R FI A FI A 

RND C(FR.FG) 
C FI C FI C 

RND C(FI.FG) 
R FI C FD C" 
RND C (FG.. FR) 
C FD R FI R 



34-4-0 GOTO 3590 
34-50 LET Cfl=F(FI,K) 

34-60 LET FR=Cfi 
34-70 GOSU6 3589 

34-80 IF K=FR THEN LET X$ = "FI C" 
34.85 IF K =Ffl THEN LET K =FD 
3490 GOSUB 2000 

3500 IF K=FD THEN LET X$="FI C” 
3510 IF K=FG THEN LET X$=“FI R” 
3520 GOSUB 2000 

3530 IF F(FR,FI) =CD THEN LET Y$=* 
S $ 

3540 IF F (FR..-FI) =CG THEN LET Y$« 

3550 GOSUB 3120 

3560 LET NH=NH+1 

3570 IF NH=4 THEN GOTO 3690 

3580 GOTO 3410 

3590 FOR K =2 TO 5 

3600 LET CR=K 

3610 LET FR=K 

3620 GOSUB 2589 

3630 IF F (FA,FD) C5 CA OR F CFO . FR) 

<>CD THEN GOTO 3660 

3640 NEXT K 

3650 STOP 

3660 LET Y$=5$ 

3670 GOSUB 3120 
3680 GOTO 3410 
3690 REM COINS INFERIEURS 
3740 LET B*="FD A FI A FD C FA C 

FI fl FR R FD R FI C FD C" 

3750 LET C$="FD fl FI R FD C FR C 

FI R FI R FR fl FD R FI C FD C" 

3760 FOR K =2 TO 5 
3770 LET Ffl=K 
3780 LET Cfl=K 
3785 GOSUB 2589 
3790 FOR L = 1 TO 4 

3800 LET T*="FGFAFRFDFDFRFRFG"(L 
*4—3 TO L*4) 

3310 GOSUB 3850 

3820 IF X=1 THEN GOTO 3900 

3830 NEXT L 

3840 STOP 

3850 LET TU =URL T$(l TO 2) 

3860 LET TR=URL T$(3 TO 4) 

3870 LET X=0 

3880 IF C(FG., FR)=TU AND C(FR.FI) 
=TR OR C(Ffl,FT)=TU AND CfFI^G) s 
TR OR C (FIjiFG) =TU AND C(FG.FR)=T 
R THEN LET X=1 

3890 RETURN 

3891 LET TU=URL TJ(1 TO 2) 

3892 LET TR=UAL T$(3 TO 4) 

3893 LET X=0 

3894 IF C(FR.,FD) =TU RND C(FD.FI) 
=TR OR C ( FD .. FI ) =TU RND C(FI.FR) = 
TR OR C (FI ji FR) =TU RND C(FA.FD)=T 
R THEN LET X=1 

3895 RETURN 
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3900 LET T $ = "FhFDFDFRFRFGFGFR " (L 
*4.-3 TO L *4- ) 

3910 GD5UB 3891 

3990 IF X = 1 THEN GOTO 3959 

393© NEXT K 

394-0 LET V$=C$ 

3950 GOTO 397© 

3959 LET Ffl=UfiL " 34-52 “ (FR) 

3960 LET CR=FR 

3961 GOSU6 25S9 

3962 GOSÜB 3891 

3963 IF X=1 THEN GOTO 3982 

3964- LET FR =UfiL " 5234- " (FR) 

3965 LET CR=FR 

3966 GOSÜB 2589 

3969 LET Y*=B$ 

3970 GOSÜB 3120 

3982 LET 5$="FO R FI R FD C FI R 
FD R FI C FI C FD C" 

3984- LET M$="FG C FI C FG R FI C 
FG C FI R FI R FG R" 

3990 LET LF= (C (FI..FR) =CI) + (C (FI, 
FD) =CI) + (C(FI,FR) =CI) + (C (FI.. FG) s 
CI) 

3995 IF LF =4- THEN GOTO 4-220 
3997 IF LF = 1 THEN GOTO 4-100 
4-00© LET FR=URL ** 34-52 " (FR) 

4.010 LET CR =FR 
4-020 GOSÜB 2589 

4-030 IF C ( F R , FI ) = CI RND C (FR.. FD) 
=CI RND C. (FI..FR) =CI RND CîFI.FD) 
=CI THEN LET Y$=S$ 

404.0 IF C(Ffl,FI)=CI RND CiFI,Ffl) 
=CI RND C- (FR.. FG) =CI RND C(FI..FD) 
=CI THEN LET Y*=S$ 

4050 IF C (FG..FR) =CI RND C(FD,FI) 
=CI RND C(FG,FI)=CI RND CtFD.FR) 
=CI THEN LET Y*=S$ 

4060 IF CfFG^Fft) =CI RND C(FR,FD.> 
=CI RND C(FG,FI) =CI RND C(FR,FI) 
=CI THEN LET Y$=S$ 

4070 IF C(FR,FI)=CI RND CIFI..FR) 
=CI RND C(FI,FR) =CI RND C(FD..FR) 
=CI THEN LET Y$=S$ 

4080 GOSÜB 3120 
4090 GOTO 3990 
4100 FOR K=2 TO 5 
4110 LET CR =K 
4120 LET Ffl=K 
4130 GOSÜB 2589 

4140 IF C(FI,FG)=CI RND C(Ffi.FD) 
=CI THEN GOTO 4180 

4150 IF C (FIjFfl) =CI RND C(Ffl,FI) 

=CI THEN GOTO 4200 

4160 NEXT K 

4170 STOP 

4180 LET Y$=S$ 

4190 GOTO 421© 

4200 LET Y*=M* 
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4-210 GOSUB 3120 

4-220 IF C(Ffi,FD) =CR THEN LET X$ = 
"FI C" 

4-230 GOSUB 2000 

4-24-0 IF CCFR,FD)=CD THEN LET X$- 
"FI G" 

4250 IF C-<FA.,FD)=CG THEN LET X$ = 
"FI R" 

4260 GOSUB 2000 
4270 REM COTES INFERIEURS 
4280 LET B$="FG R FD D FR C FG C 

FD R FI R FI R FG R FD C FR C F 

G C FD R" 

4290 LET C$="FG R FD C FR fl FG C 

FD fl FI C FI C FG fl FD C FR fl F 

G C- FD fl" 

4300 LET S$="FD R FI R FD C FI C 
FG C FI C FG R FI R FI R FD R F 

I C FD C FI C FG C FI R FG fl" 

4310 LET M*="FG C FI C FG fl FI R 
FD fl FI R FD C FI C FI C FG C F 

I fl FG R FI fl FD R FI C FD C" 

4320 LET LF= (F (O,B) =0) + (F (0^10) =D 
)+(F(0,U)=0)+(F(0,J)=0» 

4330 IF LF =4 THEN GOTO 5000 
4340 IF LF =0 THEN GOTO 4600 
4350 IF (F(0,B) =0 OR F(0.U)=*0) fl 
ND (F(0.U)=0 OR F (O.. U)=ü) THEN G 
OTO 4440 

4360 FOR K=2 TO 5 

4370 IF F ( K .. FI ) =K THEN GOTO 4390 

4380 NEXT K 

4385 LET K=2 

4390 LET CA=K 

4400 LET Ffl=K 

4410 GOSUB 2589 

4420 LET Y$=S$ 

4430 GOSUB 3120 
4440 LET OC=2 
4445 LET OC=OC-l 
4450 FOR K =2 TO 5 

4460 IF F (K . O) < >0 THEN GOTO 4480 
4470 NEXT K 
4475 GOTO 4445 

4480 IF F (K.. O) <>K AND OC THEN GO 

TO 4470 

4490 LET CR=K 

4500 LET Ffl=K 

4510 GOSUB 2589 

4520 LET YJ=B* 

4530 IF F(FI,FD)=CI THEN LET Y$« 

4540 GOSUB 3120 
4550 GOTO 5000 
4600 FOR K=2 TO 5 

4610 IF F (O.. K) = K THEN GOTO 4630 
4620 NEXT K 
4622 LET K=2 
4630 LET Y$=B$ 
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4-64-0 LET FA=K 
4-650 LET CA=K 
4-660 GOSUB 2589 

4-670 IF F (FR..FG) =CR THEN LET Y$ = 

C$ 

4.680 GOSUB 3120 
4-690 GOTO 4-4-4-0 

5000 UET i_F= <F ÎB..O) =B> + ÏF\U..O) =U 
) + (F (U.. O) aU) + CF (U.. O) =U) 

5005 IF LF =4- THEN GOTO 80O0 

5009 FOR K=2 TO 5 

5010 IF F (K.. Q) =K THEN GOTO 5100 
5020 NEXT K 

5030 LET Y$=5$ 

504-0 GOSUB 3120 
5050 GOTO 5000 
5100 LET FA=K 
5110 LET Cfl=K 
5120 GOSUB 25S9 
5130 LET Y$=M$ 

514-0 IF FfFG,FI) =CD THEN LET Y$ = 

5 * 

5150 GOSUB 3120 

3000 REM LE CUBE EST FRIT 

3005 PRINT "TAPEZ ""NEU-LINE.. 

3010 IF INKEY $ < > CHR$ 118 THEN GO 

TO 8010 
8020 CLS 

8030 PRINT "UOUS RUEZ FRIT LE RU 
8IKS CUBE” 

304.0 PRINT "SI LE CUBE N" "EST PR 
S FRIT. C""EST QUE UOUS RUEZ FRI 
T UNE ERREUR DE MRNIPULRTION. " 

S050 PRINT "POUR RECOMMENCER.. PR 
ESSEZ ""NEU-LINE"" SINON PRESSEZ 
"“SPRCE""" 

3060 IF INKEY $ =CHR $ 113 THEN RUN 
8090 GOTO 8060 


6.4. JEU DE LA VIE 

Le jeu de la vie, inventé par John Conway, se joue avec votre 
ZX81 sur une grille 10 x 10. Une population de cellules naît, vit et 
meurt sous vos yeux, son évolution étant dictée par les trois lois fonda¬ 
mentales suivantes : 
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UElT DE LR, UIEI 


- TOUTE CELLULE ENTOUREE POR DEU 
X OU TROIS OUTRES CELLULES SURUX 
T 

- SI UNE CELLULE EST ENTOUREE PR 
R EXACTEMENT TROIS OUTRES CELLUL 
ES, UNE OUTRE CELLULE NOIT 

- TOUTE CELLULE ENTOUREE PRR GUR 
TRE CELLULES OU PLUS MEURT 


Deux possibilités vous sont offertes : 

— Vous pouvez choisir vous-même la population initiale. Pour ce 
faire, entrez ” 1 ” puis, après avoir pressé ”NEWLINE”, introduisez les 
coordonnées de chaque cellule sous la forme d’un nombre de deux chif¬ 
fres, le premier chiffre étant la ligne, le second la colonne. Pressez la 
touche ”NEWLINE” après l’introduction des coordonnées de chaque 
cellule. Vous la verrez apparaître sur la grille de jeu et le ZX 81 attendra 
ensuite que vous lui donniez les coordonnées d’une autre cellule. Lorsque 
votre population est entièrement entrée, pressez ”0” pour démarrer 
l’exécution du jeu. 

— Si vous préférez que ce soit le ZX 81 qui choisisse la popula¬ 
tion initiale, pressez les touches ”2” puis ”NEWLINE”. 

La population initiale une fois définie, le ZX 81 passe à la généra¬ 
tion 1 puis, chaque fois que vous presserez une touche quelconque du 
clavier, passera à la génération suivante. 
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GENERATION 0 

Structure du programme: 

La ligne 10 renvoie au sous-programme 500 qui affiche les règles 
du jeu. 

La ligne 50 vous permet de choisir entre définir vous-même la 
population initiale ou laisser ce soin au ZX81. 

La ligne 76 renvoie au sous-programme 1000 qui dessine la grille 
de jeu. 

Les lignes 90 à 140 choisissent une population initiale dans le cas 
où vous avez entre ”2” précédemment. 

Les lignes 160 à 190 vous permettent d’entrer les coordonnées des 
cellules qui constituent la population que vous désirez voir évoluer tant 
que vous n’entrez pas ”0”. 

Les lignes 220 à 280 étudient le voisinage de chaque cellule afin de 
déterminer, d’après les règles du jeu de la vie, la génération suivante. 

Les lignes 290 à 360 permettent d’afficher la génération qui vient 
d’être calculée précédemment. 

La ligne 371 stoppe l’exécution du programme jusqu’à ce que vous 
pressiez une touche quelconque du clavier pour passer à la génération 
suivante. 
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UIE 


10 GOSUB 500 
20 DIM P (9.. 9) 

30 DIM 0(9.0) 

4*0 L rr.T S-G 

50 PRxrrr rt 8 ,,g;'’Uoülez uous e 
NTRER UOUS-MEHE UNE POPULATION 7 
( 1 , 2 ) " 

60 INPUT R 

70 IP <R-l)*(P.-2> < >0 THEN GOTO 
50 

75 CL5 

76 GOSUB 1000 

6© IF R = 1 THEN GOTO 16© 

90 FOR X=2 TO 8 
100 FOR Y =2 TO 8 

110 IF RND > . 5 THEN l_ET P(X,Y)=1 
120 l_ET O ( X , Y ) =P ( X .. Y ) 

130 NEXT Y 
14.0 NEXT X 
150 GOTO 290 


160 INPUT H 

165 IF H =0 THEN GOTO 205 
170 PRINT RT INT (H/10) *2.. (H-IN 
T (H/10) *-10) *2.; "O" 

180 LET P ( INT (H/10) .. (H-INT (H/ 
10 ) * 10 I ) = 1 

190 LET O ( INT (H/10) .. (H —INT (H./ 
10 ) *- 10 ) ) =1 
200 GOTO ISO 
205 FRST 
210 LET S=5+1 
220 FOR X=2 TO 8 


230 FOR Y =2 TO 8 


24-0 LET R=0 

250 IF P < X — 1.Y — 1) =1 THEN LET R = 
R + l 

251 IF P(X-1,Y)=1 THEN LET R=R+ 

1 

252 IF P (X-1..Y+1) =1 THEN LET R = 
R + l 

253 IF P (X .Y—1) =1 THEN LET R=R + 

1 

254 IF P(X.Y +1) =1 THEN LET R=R + 

1 

255 IF P (X + 1..Y —1) =1 THEN LET R = 
R + l 

256 IF P(X+l .Y) =1 THEN LET R=R+ 

1 


257 IF P (X + 1..Y + 1) =1 THEN LET R = 
R + l 


260 IF P (X..Y) =1 RND R<>3 RND R< 
>2 THEN LET Q(X..Y)=0 
265 IF P (X . Y) =0 RND R = 3 THEN LE 
T O (X..Y) =1 
270 NEXT Y 


28© NEXT X 
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‘GENERATION 


286 GOSUB 10©0 
290 PR INT RT 20.. 5.; 

S 

300 FOR X = 1 TO 9 

310 FOR Y=1 TO 9 

320 LET P CX..Y) =Q (X..YÏ 

330 IF PIX..Y) =1 THEN PRINT 


’0“ 

P ( X . Y ) 


Y 

X 


=0 THEN PRINT RT Y 


1 


JEU 


'EU DE tfl' UrI 


RT Y 

*2.. X*2; ' 

34-0 IF 
*2.X*2;“ ‘ 

350 NEXT 
360 NEXT 

370 SLOU 

371 PRUSE 4E4- 
380 GOTO 205 
500 REM REGLES DU 
505 PRINT RT 0.. 10.: ‘ 

510 PRINT RT 4-.. 0 ; “ - TOUTE OELLU 
LE ENTOUREE PRR DEUX OU TROIS RU 
TRES CELLULES 5URÜIT" 

520 PRINT RT S..0,."- SI UNE CELL 
ULE EST ENTOUREE PRR EXACTEMENT 
TROIS RUTRES CELLULES.. UNE AUTRE 
CELLULE NAIT” 

530 PRINT RT 12.0.:"- TOUTE CELL 
ULE ENTOUREE PRR QUATRE CELLULES 
OU PLUS MEURT" 

535 PRINT RT 19.. 0.: ” - POUR ENTRE 
R UOUS MEME UNE POPULATION PRESS 


EZ 1 SINON PRESSEZ 
54-0 PRINT AT 16., 0. 
INE POUR COMMENCER 


550 

PRUSE 4E4 

560 

CL 5 

570 

RETURN 

1000 

PRINT RT O,. 0.; " 

7 6 

9” 

1020 

FOR A = 1 TO 9 

1030 

PRINT RT 2 * A .. 0.; R 

1040 

NEXT R 

’050 

RETURN 


"PRESSEZ 
LE JEU' 


1 2 3 


:ul 


5 


1 2 3 4-5 6 


8 9 


1 

2 

3 

4- O 

5 O O ’3 O 

S O 


3 

9 


GENERATION 3 
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6.5. LABYRINTHE 



NI'JEflU 2 


Ceci est un jeu d’adresse et de rapidité. Vous allez piloter une petite 
voiture ”ZX 81-commandée” dans un labyrinthe dont il faut sortir le 
plus rapidement possible. 

Placée à gauche de l’écran au départ, votre voiture doit atteindre le 
mur gris à droite de l’écran en heurtant le moins possible les murs noirs 
qu’elle peut rencontrer sur sa route. Une pénalité de mille points est pré¬ 
vue pour chaque collision alors qu’un simple déplacement ne coûte que 
cinquante points. Il est interdit de heurter les murs gris qui entourent le 
labyrinthe (excepté celui de droite qui représente la ligne d’arrivée), la 
partie se terminerait en effet aussitôt! 

Dix niveaux de jeu vous sont proposés : 
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niveau 

Difficulté -.- 

1 

2 

3 

B 

5 

6 

B 

8 

9 

10 

murs éloignés 

B 


X 

B 

X 


X 


X 


murs rapprochés 


X 


1 


X 


X 


X 

2 trous par mur 

X 

X 

X 

X 







1 trou par mur 





X 

X 

X 

X 

X 

X 

vitesse lente 

x 

X 



X 

X 





vitesse moyenne 



X 

X 



X 

X 



vitesse rapide 









X 

X 


Chaque niveau de jeu a son propre ”high score” qui garde en 
mémoire le meilleur temps réalisé depuis le début du jeu pour le niveau 
considéré. 


Pressez les touches ”5”, ”6”, ”7” et ”8” pour déplacer votre voi¬ 
ture. Si vous n’appuyez pas sur une de ces touches, la voiture continuera 
dans la direction qu’elle avait prise au coup précédent. 

Pour relancer une nouvelle partie quand vous avez terminé votre 
parcours, pressez une touche quelconque du clavier. Faites bien atten¬ 
tion de ne pas appuyer sur la touche ”BREAK” car si vous vouliez 
ensuite rejouer, les meilleurs temps des parties précédentes seraient 
perdus. 



109 










































Structure du programme: 

* Programme principal: 

Les lignes 1 à 4 initialisent un tableau où sont rangés les meilleurs 
temps pour chaque niveau de jeu. 

La ligne 5 renvoie au sous-programme 1000 qui vous permet de 
choisir votre niveau de jeu. 

Les lignes 6 à 100 dessinent le labyrinthe en fonction du niveau de 
jeu choisi (ligne 70 (espacement des murs noirs) et ligne 115 (nombre de 
trous par mur)). 

La ligne 200 permet à la voiture de garder la même direction qu’au- 
paravant si vous ne pressez pas de touche pour la faire tourner: 

Les lignes 232 et 235 constituent une boucle de retardement plus ou 
moins longue suivant le niveau de jeu choisi. 

La ligne 270 teste si vous avez heurté ou non un mur noir. 

La ligne 300 teste si vous avez touché un mur gris. 

La ligne 350 réactualise, s’il y a lieu, le meilleur temps correspon¬ 
dant au niveau de jeu que vous avez choisi. 

Les lignes 360 à 396 servent à faire clignoter les différentes valeurs 
affichées en fin de partie. 

* Sous-programme 500 

La ligne 510 vous pénalise de 1000 points après chaque collision 
avec un mur noir. 

* Sous-programme 1000 

La ligne 1030 vérifie que vous avez choisi un des niveaux de jeu 
proposés. 

La ligne 1035 permet, pour les niveaux de jeu 5, 6, 7, 8, 9 et 10, de 
n’avoir qu’un trou dans chaque mur noir. 

La ligne 1040 permet d’espacer les murs noirs pour les niveaux de 
jeu 1, 3, 5, 7 et 9. 

La ligne 1050 règle la vitesse de la voiture pour chaque niveau de 

jeu. 
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Caractères graphiques : ligne 20 : graphies shift A; graphies shift A 

ligne 50 : graphies shift A; graphies shift A 

ligne 90 : graphies space 

ligne 370: graphies shift B; graphies shift B 

ligne 500 : graphies shift B ; graphies shift B 
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LABYRINTHE 


1 DIM H(10) 

2 FOR 1=1 T O10 

3 LET H(I)=50000 
4- NEXT I 

5 GOSUB 10O0 

S REM DESSIN DU LABYRINTHE 
10 FOR X=0 TO 30 

20 PRINT PT 0,X;"$&T;PT I9,x; "$f 

30 NEXT X 

4-0 FOR Y = 1 TO 18 

50 PRINT RT Y,0;"$T;RT Y,30;"gg 

• • 

60 NEXT Y 

70 FOR Y =L TO 28 STEP L 
80 FOR X = 1 TO 18 
90 PRINT RT X,Y; ,, |" 

100 NEXT X 

110 PRINT RT RND*14- + 3,Y; " " 

11S IF E=0 THEN PRINT RT RND*14 

+2,Y;" ” 

120 NEXT Y 
130 LET X = 10 
14-0 LET Y = 1 
150 LET T = 10 
160 LET U=1 
170 LET S=0 
18© LET I * = 

190 LET Ü$=INKEY$ 

200 IF U $ = "•• THEN LET U$=I$ 

210 LET S=S+S0 
220 LET T=X 
230 LET U=Y 
232 FOR 1=0 TO P 
235 NEXT I 

24-0 LET X=X+ ( J$ = ,, 6'* ) - (U$ = **7" ) 
250 LET Y=Y+ (J$r; ,, 8' , ) - (JJr-S") 
260 PRINT RT T,U;" “ 

265 PRINT RT X,Y; 

270 IF PEEK KPEEK 16398+256*PEE 
K 16399)=128 THEN GOSUB 500 
280 PRINT RT X,Y;"*" 

300 IF X j 18 OR X -îl OR Y •; 1 OR Y> 
29 THEN GOTO 330 
310 LET I$=J$ 

GOTO 190 

IF X >18 OR X <1 OR Y <1 THEN 


391 
PRINT 


RT 


320 
330 
GOTO 
34-0 

âh #M3 

350 
355 

PS: ";H(N) 

360 FOR 1=1 TO 10 

370 PRINT RT X,Y; 

; RT X ,Y ; "B" 

371 NEXT I 


<-JN DE L P PR 


20 , 0 ; 

_; S 

IF S -CH (Ni THEN LET H (N t =S 
PRINT RT 21,9;"MEILLEUR TEM 


RT X,Y ; 


375 FOR 1=1 TO 10 

380 PRINT RT 20.18; “TEMPS : "; RT 

20 , 1S; "üHSsm ■■ 

381 NEXT I 

382 FOR 1=1 TO 10 _ 

38 4- PRINT RT £1,9; 

saai - ; RT 21,9; "MEILLEUR TEMP S~ 

390 NEXT I 

391 FOR 1=1 TO 20 

R 3^j| 1 . pp .* N I| 0 p T |~MII M “ 

396 NEXT l' 

4-00 PAUSE 4-E4- 
4-10 CLS 


4-20 GOTO 5 

500 PRINT RT X,Y; ,, S“ 

510 LET 5=5+1090 
520 RETURN 

1000 REM CHOIX DU NIUERU 
1005 PRINT “R QUEL NIUERU UOULEZ 
UOUS JOUER? tl-l©)" 

1010 LET E =0 
1015 INPUT N 
1020 LET N = INT N 

1030 IF tN-1) * (N-2) * VN-3.1 * VN-4-) it 
(N -5) * (N -6) * VN-7) » (N -3.1 * VN— 9.1 * VN 
-10.1 O0 THEN GOTO 1000 
1035 IF (N-5.1 * (N-S.1 * (N—7.1 S ÏN-8) * 
VN—9) •* VN —10) =0 THEN LET E=1 
104.0 LET L =2 -+ V N = 1 OR N =3 OR N =5 
OR N =7 OR N =9.1 

1050 LET P=5+5* VN = 1 OR N=2 OR N = 
5 OR N=6)-5*VN=9 OR N=10J 


1055 CLS 

1060 PRINT RT 21,0;“NIUERU ";N 
1070 RETURN 



ANNEXE 1 

Les caractères graphiques du 
ZX 81 et leurs codes 
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129 

130 

131 

132 

133 

134 

135 

136 

137 

138 
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ANNEXE 2 

Les codes d'erreur du ZX 81 


0 Terminaison normale de l’exécution 

1 La variable de contrôle d’une boucle n’a pas été initialisée par 
une instruction FOR et il existe une variable ayant ce nom 

2 Utilisation d’une variable indéfinie 

3 Indice supérieur à la dimension du tableau 

4 Manque de mémoire disponible 

5 Les 21 lignes d’affichage sur l’écran sont remplies. 

Il faut exécuter une commande CONT 

6 Dépassement de capacité. Le nombre est supérieur à 10 38 

7 Une instruction RETURN a été reconnue sans l’exécution 
préalable de l’instruction GOSUB 

8 Utilisation de l’instruction INPUT comme commande 

9 Exécution d’une instruction STOP 

A Argument de fonction invalide 

B Le nombre entier obtenu après arrondi est en dehors des 
limites attendues 
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C La variable alphanumérique d’une fonction VAL n’est pas 
une expression numérique 

D Arrêt du programme par BREAK ou par STOP en réponse à 
une instruction INPUT 

E Inutilisé 

F Commande SAVE sans nom de programme 


Imprinjerie de la Manutention à Mayenne 
Dépôt légal : juillet 1983 
N" d'Éditeur : 3979 




Découvrez au fil des pages de ce livre l'univers fantastique 
et captivant des jeux sur ordinateur. 

Grâce à votre ZX 81, soyez tour à tour pilote de chasse, 
gardien de but, seigneur féodal ou même commandant d'un 
vaisseau spatial ! 

Que vous aimiez les jeux d'aventures, de réflexion ou 
encore de hasard, vous serez certainement conquis par ces 
35 jeux plus fascinants les uns que les autres. 

Ils pourront être pour vous plus qu'une simple source de 
plaisir: une occasion d'acquérir des connaissances nouvelles 
en programmation. 

Chaque programme est en effet accompagné d'une 
analyse détaillée de sa structure. 

Vous jouerez à la majorité des jeux avec votre ZX 81 1 K. 
Mais si vous possédez, de plus, l'extension 16 K RAM vous 
pourrez non seulement résoudre les problèmes posés par le 
diabolique Rubik s Cube mais aussi vous acharner à détruire un 
mur de briques géant ou encore vous adonner aux autres jeux. 

Inutile de dévoiler davantage les secrets de ce monde 
passionnant. Découvrez-les vous-même pour votre plus grand 
divertissement... 



:s 


8616 
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CO OQ 




LU 


GO 
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